From d7e8d65d8130bdce206d2029c0f99cf6d1573a94 Mon Sep 17 00:00:00 2001
From: James Cash <james.nvc@gmail.com>
Date: Sat, 7 Jun 2008 21:08:14 -0400
Subject: [PATCH] Fix to macro-expand

---
 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 941386beb1..1cf65638da 100644
--- a/extra/lisp/lisp.factor
+++ b/extra/lisp/lisp.factor
@@ -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 ;