[gforth] / gforth / extend.fs  

gforth: gforth/extend.fs

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

version 1.28, Thu Jul 31 16:17:09 1997 UTC version 1.29, Mon Dec 1 21:15:02 1997 UTC
Line 190 
Line 190 
         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,

Generate output suitable for use with a patch program
Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help