Minor changes to tests

diff --git a/extra/lisp/lisp-tests.factor b/extra/lisp/lisp-tests.factor
index c3316b459fb0a87e0128dcf236d4a7f539f8513e..a9d73cf97ced3403a6bcc6dc7ff329921fbaf915 100644 (file)
--- a/extra/lisp/lisp-tests.factor
+++ b/extra/lisp/lisp-tests.factor
@@ -78,7 +78,7 @@ IN: lisp.test
     ] unit-test
     
     { T{ lisp-symbol f "if" } } [
-        "(defmacro if (pred tr fl) (list (quote cond) (list pred tr) (list #t fl)))" lisp-eval
+        "(defmacro if (pred tr fl) (list (quote cond) (list pred tr) (list (quote #t) fl)))" lisp-eval
     ] unit-test
     
     { t } [