Minor edits
parent
887b385250
commit
9a0484b3a5
|
@ -9,8 +9,8 @@ IN: lisp
|
|||
DEFER: convert-form
|
||||
DEFER: funcall
|
||||
DEFER: lookup-var
|
||||
DEFER: lisp-macro?
|
||||
DEFER: lookup-macro
|
||||
DEFER: lisp-macro?
|
||||
DEFER: macro-expand
|
||||
DEFER: define-lisp-macro
|
||||
|
||||
|
@ -110,10 +110,9 @@ PRIVATE>
|
|||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||
|
||||
SYMBOL: lisp-env
|
||||
ERROR: no-such-var variable-name ;
|
||||
|
||||
SYMBOL: macro-env
|
||||
|
||||
ERROR: no-such-var variable-name ;
|
||||
M: no-such-var summary drop "No such variable" ;
|
||||
|
||||
: init-env ( -- )
|
||||
|
|
|
@ -8,7 +8,7 @@ IN: lists
|
|||
MIXIN: list
|
||||
GENERIC: car ( cons -- car )
|
||||
GENERIC: cdr ( cons -- cdr )
|
||||
GENERIC: nil? ( cons -- ? )
|
||||
GENERIC: nil? ( object -- ? )
|
||||
|
||||
TUPLE: cons car cdr ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue