Diff for /gforth/extend.fs between versions 1.28 and 1.29

version 1.28, 1997/07/31 16:17:09 version 1.29, 1997/12/01 21:15:02
Line 190  variable span ( -- a-addr ) \ core-ext Line 190  variable span ( -- a-addr ) \ core-ext
         dup 0 wordlist-link - rehash          dup 0 wordlist-link - rehash
     REPEAT      REPEAT
     drop      drop
     @ udp !  dp ! ;      @ udp !  dp !
       \ clean up vocabulary stack
       0 vp @ 0
       ?DO
           vp cell+ I cells + @ dup here >
           IF  drop  ELSE  swap 1+  THEN
       LOOP
       dup 0= or set-order \ -1 set-order if order is empty
       get-current here > IF
           forth-wordlist set-current
       THEN ;
   
 : marker ( "mark" -- )  : marker ( "mark" -- )
     marker, Create A,      marker, Create A,

Removed from v.1.28  
changed lines
  Added in v.1.29


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