--- gforth/test/other.fs 1997/05/21 20:40:20 1.1 +++ gforth/test/other.fs 1997/06/23 16:57:09 1.3 @@ -61,6 +61,13 @@ s" +" find-name <> throw 1e pad 5 represent -1 <> swap 0 <> or swap 1 <> or throw +\ -trailing + +s" a " 2 /string -trailing throw drop + +\ convert (has to skip first char) + +0. s" 123 " drop convert drop 23. d<> throw \ comments across several lines