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
Implemented let as macro.
[scheme.forth.jl.git]
/
scheme.4th
diff --git
a/scheme.4th
b/scheme.4th
index
95c621a
..
f8dd089
100644
(file)
--- a/
scheme.4th
+++ b/
scheme.4th
@@
-139,11
+139,6
@@
variable nextfree
cdr-cells + !
;
cdr-cells + !
;
-: caar car car ;
-: cadr cdr car ;
-: cdar car cdr ;
-: cddr cdr cdr ;
-
: nil 0 nil-type ;
: nil? nil-type istype? ;
: nil 0 nil-type ;
: nil? nil-type istype? ;
@@
-1058,7
+1053,7
@@
parse-idx-stack parse-idx-sp !
quote-symbol tagged-list? ;
: quote-body ( quote-obj -- quote-body-obj )
quote-symbol tagged-list? ;
: quote-body ( quote-obj -- quote-body-obj )
- c
ad
r ;
+ c
dr ca
r ;
: quasiquote? ( obj -- obj bool )
quasiquote-symbol tagged-list? ;
: quasiquote? ( obj -- obj bool )
quasiquote-symbol tagged-list? ;