Return to anslocal.fs CVS log | Up to [gforth] / gforth / compat |
version 1.1, 1996/01/25 16:47:05 | version 1.2, 1996/09/30 13:16:24 |
---|---|
Line 18 | Line 18 |
: {helper ( -- final-offset ) | : {helper ( -- final-offset ) |
>in @ | >in @ |
bl parse | bl word count |
2dup s" --" compare 0= if | 2dup s" --" compare 0= if |
2drop [char] } parse 2drop true | 2drop [char] } parse 2drop true |
else | else |