projects
/
pforth
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge pull request #75 from SeekingMeaning/0BSD
[pforth]
/
fth
/
ansilocs.fth
diff --git
a/fth/ansilocs.fth
b/fth/ansilocs.fth
index
4e3dae9
..
735680f
100644
(file)
--- a/
fth/ansilocs.fth
+++ b/
fth/ansilocs.fth
@@
-142,19
+142,11
@@
if.forgotten lv.term
THEN
;
THEN
;
-
: VALUE
CREATE ( n <name> )
,
: VALUE
CREATE ( n <name> )
,
- immediate
DOES>
DOES>
- state @
- IF
- [compile] aliteral
- compile @
- ELSE
- @
- THEN
+ @
;
: TO ( val <name> -- )
;
: TO ( val <name> -- )
@@
-164,7
+156,7
@@
if.forgotten lv.term
lv.compile.store
ELSE
find
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 )
>body \ point to data
state @
IF \ compiling ( -- pfa )
@@
-186,7
+178,7
@@
if.forgotten lv.term
[compile] literal compile (local+!)
ELSE
find
[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 )
>body \ point to data
state @
IF \ compiling ( -- pfa )