Fix to macro-expand
parent
2a92f454a6
commit
d7e8d65d81
|
@ -113,7 +113,7 @@ PRIVATE>
|
|||
call ; inline
|
||||
|
||||
: macro-expand ( cons -- quot )
|
||||
uncons [ list>seq [ ] like ] [ lookup-macro macro-call compile-form ] bi* ;
|
||||
uncons [ list>seq [ ] like ] [ lookup-macro ] bi* call compile-form ;
|
||||
|
||||
: lisp-string>factor ( str -- quot )
|
||||
lisp-expr parse-result-ast compile-form ;
|
||||
|
|
Loading…
Reference in New Issue