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 ;
|
cdr [ car ] keep [ convert-lambda ] [ car name>> ] bi define-lisp-macro 1quotation ;
|
||||||
|
|
||||||
: macro-expand ( cons -- quot )
|
: 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 )
|
: form-dispatch ( cons lisp-symbol -- quot )
|
||||||
name>>
|
name>>
|
||||||
|
|
Loading…
Reference in New Issue