Still working on lisp macros...
parent
82daad3375
commit
18f3fb004d
|
@ -61,7 +61,7 @@ PRIVATE>
|
|||
cdr [ car ] keep [ convert-lambda ] [ car name>> ] bi define-lisp-macro 1quotation ;
|
||||
|
||||
: macro-expand ( cons -- quot )
|
||||
uncons [ list>seq >quotation ] [ lookup-macro call ] bi* call convert-form ;
|
||||
uncons [ list>seq >quotation ] [ lookup-macro ] bi* call convert-form ;
|
||||
|
||||
: form-dispatch ( cons lisp-symbol -- quot )
|
||||
name>>
|
||||
|
|
Loading…
Reference in New Issue