From 99e546ef65fd9a2e1e71a1ee998a5b0447f59b83 Mon Sep 17 00:00:00 2001
From: James Cash <james.nvc@gmail.com>
Date: Sun, 1 Jun 2008 00:52:47 -0400
Subject: [PATCH] More work on macros

---
 extra/lisp/lisp.factor | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/extra/lisp/lisp.factor b/extra/lisp/lisp.factor
index 22fc053811..28a9255293 100644
--- a/extra/lisp/lisp.factor
+++ b/extra/lisp/lisp.factor
@@ -10,6 +10,7 @@ DEFER: convert-form
 DEFER: funcall
 DEFER: lookup-var
 DEFER: lisp-macro?
+DEFER: looku-macro
 
 ! Functions to convert s-exps to quotations
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -69,7 +70,7 @@ PRIVATE>
     } case ;
     
 : macro-expand ( s-exp -- quot )
-     ;
+    unclip-slice lookup-macro macro-call convert-form ;
     
 : convert-list-form ( s-exp -- quot )  
     dup first