More refactorings to lisp

db4
James Cash 2008-06-06 00:29:22 -04:00
parent 9a0484b3a5
commit b64a115226
1 changed files with 2 additions and 2 deletions

View File

@ -96,10 +96,10 @@ PRIVATE>
convert-form lambda-rewrite call ; inline
: macro-call ( lambda -- cons )
call ;
call ; inline
: macro-expand ( cons -- quot )
uncons lookup-macro macro-call compile-form ;
uncons [ list>seq [ ] like ] [ lookup-macro macro-call compile-form ] bi* call ;
: lisp-string>factor ( str -- quot )
lisp-expr parse-result-ast compile-form ;