summary |
tags |
clone url |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
e476e08)
Now it does not produce an IMMEDIATE word.
This allows it to pass some standard tests.
Fixes #20
: VALUE
CREATE ( n <name> )
,
: VALUE
CREATE ( n <name> )
,
- state @
- IF
- [compile] aliteral
- compile @
- ELSE
- @
- THEN
lv.compile.store
ELSE
find
lv.compile.store
ELSE
find
- 1 = 0= abort" TO or -> before non-local or non-value"
>body \ point to data
state @
IF \ compiling ( -- pfa )
>body \ point to data
state @
IF \ compiling ( -- pfa )
[compile] literal compile (local+!)
ELSE
find
[compile] literal compile (local+!)
ELSE
find
- 1 = 0= abort" +-> before non-local or non-value"
>body \ point to data
state @
IF \ compiling ( -- pfa )
>body \ point to data
state @
IF \ compiling ( -- pfa )