From 43a9413da5ab7cf07cd2d91c480594fea6e92731 Mon Sep 17 00:00:00 2001
From: James Cash <james.nvc@gmail.com>
Date: Wed, 18 Jun 2008 14:08:23 -0400
Subject: [PATCH] Fixing typo in lisp 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 fb8bf6de58..7e51008ea0 100644
--- a/extra/lisp/lisp-tests.factor
+++ b/extra/lisp/lisp-tests.factor
@@ -62,7 +62,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 (list pred tr) (list #t fl))))" lisp-eval
] unit-test
{ t } [