From 6543c03b0f59a08cc559c439322869cbe36c728c Mon Sep 17 00:00:00 2001 From: James Cash Date: Thu, 19 Jun 2008 14:33:06 -0400 Subject: [PATCH] Fixing lisp's defmacro for 'if' --- extra/lisp/lisp-tests.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/lisp/lisp-tests.factor b/extra/lisp/lisp-tests.factor index 8946575300..805a1f5ce0 100644 --- a/extra/lisp/lisp-tests.factor +++ b/extra/lisp/lisp-tests.factor @@ -68,7 +68,7 @@ IN: lisp.test ] unit-test { T{ lisp-symbol f "if" } } [ - "(defmacro if (pred tr fl) (list (quote cond) (list (list pred tr) (list #t fl))))" lisp-eval + "(defmacro if (pred tr fl) (list (quote cond) (list pred tr) (list #t fl)))" lisp-eval ] unit-test { t } [