Return to stuff.fs CVS log | Up to [gforth] / gforth |
version 1.20, 2001/08/07 09:39:30 | version 1.21, 2002/08/12 16:39:34 |
---|---|
Line 126 AUser CSP | Line 126 AUser CSP |
2drop | 2drop |
repeat | repeat |
- + dup >r resize throw r> ; | - + dup >r resize throw r> ; |
: str= ( c-addr1 u1 c-addr2 u2 -- f ) | |
compare 0= ; | |
: string-prefix? ( c-addr1 u1 c-addr2 u2 -- f ) | |
\G Is @var{c-addr2 u2} a prefix of @var{c-addr1 u1}? | |
tuck 2>r min 2r> compare 0= ; |