Still working on lisp macros...

db4
James Cash 2008-06-30 11:20:41 -04:00
parent 82daad3375
commit 18f3fb004d
1 changed files with 2 additions and 2 deletions

View File

@ -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>>