The Lambda Lab
/
projects
/
scheme.forth.jl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Fixed if form when no alternative.
[scheme.forth.jl.git]
/
scheme.4th
diff --git
a/scheme.4th
b/scheme.4th
index
c300365
..
244a33f
100644
(file)
--- a/
scheme.4th
+++ b/
scheme.4th
@@
-1247,10
+1247,10
@@
hide env
: if-consequent ( ifobj -- conseq )
cdr cdr car ;
-: if-alternative ( ifobj -- alt|
fals
e )
+: if-alternative ( ifobj -- alt|
non
e )
cdr cdr cdr
nil? if
- 2drop
fals
e
+ 2drop
non
e
else
car
then ;