![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to stuff.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to stuff.fs CVS log | Up to [gforth] / gforth |
| version 1.21, 2002/08/12 16:39:34 | version 1.22, 2002/09/14 08:20:20 |
|---|---|
| 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= ; |