[gforth] / gforth / locals.fs  

gforth: gforth/locals.fs

Diff for /gforth/locals.fs between version 1.3 and 1.4

version 1.3, Tue Nov 7 18:06:48 1995 UTC version 1.4, Wed Nov 29 20:20:36 1995 UTC
Line 83 
Line 83 
 : (local)  ( addr u -- )  inlocal @ 0=  : (local)  ( addr u -- )  inlocal @ 0=
   IF  postpone <local inlocal on    IF  postpone <local inlocal on
       inlocal 3 cells + 2!  inlocal cell+ 2! THEN        inlocal 3 cells + 2!  inlocal cell+ 2! THEN
   dup IF    linestart @ >r loadline @ >r loadfile @ >r    dup IF    linestart @ >r sourceline# >r loadfile @ >r
             blk @ >r >tib @ >r  #tib @ dup >r  >in @ >r              blk @ >r >tib @ >r  #tib @ dup >r  >in @ >r
   
             >tib +! dup #tib ! >tib @ swap move              >tib +! dup #tib ! >tib @ swap move

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help