Diff for /gforth/compat/strcomp.fs between versions 1.1 and 1.3

version 1.1, 2002/09/14 08:20:20 version 1.3, 2003/02/25 22:58:48
Line 8 Line 8
 \ and following.  \ and following.
   
 s" gforth" environment? [if]  s" gforth" environment? [if]
     defined str=      2drop defined str=
 [else]  [else]
       \ : \G postpone \ ; immediate
     0      0
 [then]  [then]
 0= [if]  0= [if]
   
 : str= ( c-addr1 u1 c-addr2 u2 -- f )  : str= ( c-addr1 u1 c-addr2 u2 -- f ) \ gforth
     compare 0= ;      compare 0= ;
   
 : string-prefix? ( c-addr1 u1 c-addr2 u2 -- f )  : string-prefix? ( c-addr1 u1 c-addr2 u2 -- f ) \ gforth
     \G Is @var{c-addr2 u2} a prefix of @var{c-addr1 u1}?      \G Is @var{c-addr2 u2} a prefix of @var{c-addr1 u1}?
     tuck 2>r min 2r> str= ;      tuck 2>r min 2r> str= ;
   
 : str< ( c-addr1 u1 c-addr2 u2 -- f )  : str< ( c-addr1 u1 c-addr2 u2 -- f ) \ gforth
     compare 0< ;      compare 0< ;
   
 [then]  [then]

Removed from v.1.1  
changed lines
  Added in v.1.3


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