Diff for /gforth/stuff.fs between versions 1.20 and 1.21

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= ;

Removed from v.1.20  
changed lines
  Added in v.1.21


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>