\ local-compiler ( -- addr , variable containing CFA of locals compiler )
\
\ Author: Phil Burk
-\ Copyright 1994 3DO, Phil Burk, Larry Polansky, Devid Rosenboom
+\ Copyright 1994 3DO, Phil Burk, Larry Polansky, David Rosenboom
\
\ The pForth software code is dedicated to the public domain,
\ and any third party may reproduce, distribute and modify
THEN
;
-
: VALUE
CREATE ( n <name> )
,
- immediate
DOES>
- state @
- IF
- [compile] aliteral
- compile @
- ELSE
- @
- THEN
+ @
;
: TO ( val <name> -- )
lv.compile.store
ELSE
find
- 1 = 0= abort" TO or -> before non-local or non-value"
+ 0= abort" not found"
>body \ point to data
state @
IF \ compiling ( -- pfa )
[compile] literal compile (local+!)
ELSE
find
- 1 = 0= abort" +-> before non-local or non-value"
+ 0= abort" not found"
>body \ point to data
state @
IF \ compiling ( -- pfa )