steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
extra/lisp

4
extra/lisp/lisp.factor
View File

@ -21,7 +21,7 @@ DEFER: define-lisp-macro
: convert-cond ( cons -- quot )
cdr [ 2car [ convert-form ] bi@ 2array ]
{ } lmap-as '[ , cond ] ;
{ } lmap-as '[ , cond ] ;
: convert-general-form ( cons -- quot )
uncons [ convert-body ] [ convert-form ] bi* '[ , @ funcall ] ;
@ -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>>