Diff for /gforth/extend.fs between versions 1.51 and 1.55

version 1.51, 2003/01/19 23:35:29 version 1.55, 2003/03/09 15:16:49
Line 1 Line 1
 \ EXTEND.FS    CORE-EXT Word not fully tested!         12may93jaw  \ EXTEND.FS    CORE-EXT Word not fully tested!         12may93jaw
   
 \ Copyright (C) 1995-2003 Free Software Foundation, Inc.  \ Copyright (C) 1995,1998,2000,2003 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
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
Line 266  variable span ( -- c-addr ) \ core-ext Line 266  variable span ( -- c-addr ) \ core-ext
     drop      drop
     \ restore udp and dp      \ restore udp and dp
 [IFDEF] forget-dyncode  [IFDEF] forget-dyncode
     dup cell+ @ forget-dyncode 0= abort" gforth bug"      dup cell+ @ forget-dyncode drop
 [THEN]  [THEN]
     @ udp !  dp !      @ udp !  dp !
     \ clean up vocabulary stack      \ clean up vocabulary stack

Removed from v.1.51  
changed lines
  Added in v.1.55


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