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

Macro-expansion requires another call

db4
James Cash 2008-08-14 00:55:47 -04:00
parent 9d61d71e61
commit 3a8d20c5bd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/lisp/lisp.factor
View File

@ -62,7 +62,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 ] bi* call convert-form ; uncons [ list>seq >quotation ] [ lookup-macro ] bi* call call convert-form ;
: convert-begin ( cons -- quot ) : convert-begin ( cons -- quot )
cdr [ convert-form ] [ ] lmap-as [ 1 tail* ] [ but-last ] bi cdr [ convert-form ] [ ] lmap-as [ 1 tail* ] [ but-last ] bi