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 |