From 2a36571ca29358eabe32f2c0e22fe33866064024 Mon Sep 17 00:00:00 2001
From: James Cash <james.nvc@gmail.com>
Date: Wed, 2 Jul 2008 17:25:44 -0400
Subject: [PATCH] Minor changes to tests
---
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 c3316b459f..a9d73cf97c 100644
--- 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 } [