The Lambda Lab
/
projects
/
scheme.forth.jl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b2a917e
)
def/set/lookup are working!
author
Tim Vaughan
<tgvaughan@gmail.com>
Tue, 19 Jul 2016 08:34:54 +0000
(20:34 +1200)
committer
Tim Vaughan
<tgvaughan@gmail.com>
Tue, 19 Jul 2016 08:34:54 +0000
(20:34 +1200)
scheme.4th
patch
|
blob
|
history
diff --git
a/scheme.4th
b/scheme.4th
index
4dee70f
..
8581893
100644
(file)
--- a/
scheme.4th
+++ b/
scheme.4th
@@
-143,9
+143,9
@@
create-symbol ok ok-symbol
: add-binding ( var val frame -- )
2swap 2over frame-vals cons
: add-binding ( var val frame -- )
2swap 2over frame-vals cons
- 2over set-c
a
r!
+ 2over set-c
d
r!
2swap 2over frame-vars cons
2swap 2over frame-vars cons
-
swap set-cd
r!
+
2swap set-ca
r!
;
: extend-env ( vars vals env -- env )
;
: extend-env ( vars vals env -- env )
@@
-203,7
+203,7
@@
hide vals
get-vars-vals if
2swap 2drop car
else
get-vars-vals if
2swap 2drop car
else
- bold fg red ." Tried to read unbound variable." reset-term abort
+ bold fg red ." Tried to read unbound variable." reset-term
cr
abort
then
;
then
;
@@
-213,7
+213,7
@@
hide vals
2swap 2drop ( val vals )
set-car!
else
2swap 2drop ( val vals )
set-car!
else
- bold fg red ." Tried to set unbound variable." reset-term abort
+ bold fg red ." Tried to set unbound variable." reset-term
cr
abort
then
;
then
;
@@
-872,3
+872,5
@@
defer print
;
forth definitions
;
forth definitions
+
+\ vim:fdm=marker