From 3a8d20c5bdb517df419867cf1d2211598adfa06a Mon Sep 17 00:00:00 2001 From: James Cash Date: Thu, 14 Aug 2008 00:55:47 -0400 Subject: [PATCH] Macro-expansion requires another call --- extra/lisp/lisp.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/lisp/lisp.factor b/extra/lisp/lisp.factor index 967c52a117..75c3d48d1f 100644 --- 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