[gforth] / gforth / extend.fs  

gforth: gforth/extend.fs

Diff for /gforth/extend.fs between version 1.48 and 1.49

version 1.48, Fri Dec 13 15:49:53 2002 UTC version 1.49, Sat Dec 21 17:27:13 2002 UTC
Line 265 
Line 265 
     REPEAT      REPEAT
     drop      drop
     \ restore udp and dp      \ restore udp and dp
   [IFDEF] forget-dyncode
     dup cell+ @ forget-dyncode 0= abort" gforth bug"      dup cell+ @ forget-dyncode 0= abort" gforth bug"
   [THEN]
     @ udp !  dp !      @ udp !  dp !
     \ clean up vocabulary stack      \ clean up vocabulary stack
     0 vp @ 0      0 vp @ 0

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help