Fix to macro-expand
parent
2a92f454a6
commit
d7e8d65d81
|
@ -113,7 +113,7 @@ PRIVATE>
|
||||||
call ; inline
|
call ; inline
|
||||||
|
|
||||||
: macro-expand ( cons -- quot )
|
: 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-string>factor ( str -- quot )
|
||||||
lisp-expr parse-result-ast compile-form ;
|
lisp-expr parse-result-ast compile-form ;
|
||||||
|
|
Loading…
Reference in New Issue