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

version 1.3, 1995/11/07 18:06:48 version 1.4, 1995/11/29 20:20:36
Line 83  Create inlocal  5 cells allot  inlocal o Line 83  Create inlocal  5 cells allot  inlocal o
 : (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

Removed from v.1.3  
changed lines
  Added in v.1.4


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