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 convert-form lambda-rewrite call ; inline
: macro-call ( lambda -- cons ) : macro-call ( lambda -- cons )
call ; call ; inline
: macro-expand ( cons -- quot ) : 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-string>factor ( str -- quot )
lisp-expr parse-result-ast compile-form ; lisp-expr parse-result-ast compile-form ;