Macro-expansion requires another call

diff --git a/extra/lisp/lisp.factor b/extra/lisp/lisp.factor
index 967c52a1177a5f1b08a6b2f98425bfb8d14d912d..75c3d48d1fea596077ece57e3f6d801bec09700f 100644 (file)
--- a/extra/lisp/lisp.factor
+++ b/extra/lisp/lisp.factor
@@ -62,7 +62,7 @@ PRIVATE>
     cdr [ car ] keep [ convert-lambda ] [ car name>> ] bi define-lisp-macro 1quotation ;
 
 : 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 )    
     cdr [ convert-form ] [ ] lmap-as [ 1 tail* ] [ but-last ] bi