\ 4tH library - C>S - Copyright 2010,2011 J.L. Bezemer
\ You can redistribute this file and/or modify it under
\ the terms of the GNU General Public License

[UNDEFINED] c>s [IF]
[DEFINED] 4TH# [IF]
2 string c>s does> tuck dup 2 erase c! count ;
[ELSE]
2 string c>s does> tuck dup 2 1 fill char+ c! count ;
[THEN]
[THEN]