[BACK]Return to extend.fs CVS log [TXT] [DIR] Up to [gforth] / gforth

Diff for /gforth/extend.fs between versions 1.52 and 1.53

version 1.52, 2003/01/20 17:07:37 version 1.53, 2003/01/26 20:56:37
Line 118  decimal Line 118  decimal
     begin      begin
         dup r@ >=          dup r@ >=
     while      while
         over 2r@ swap -text 0= if          2dup 2r@ string-prefix? if
             2swap 2drop 2r> 2drop true exit              2swap 2drop 2r> 2drop true exit
         endif          endif
         1 /string          1 /string
Removed from v.1.52  
changed lines
  Added in v.1.53

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