From 05c84a72e1facb7cc95d9c6b378f3f8827fabf84 Mon Sep 17 00:00:00 2001
From: James Cash <james.nvc@gmail.com>
Date: Sun, 8 Jun 2008 09:01:31 -0400
Subject: [PATCH] Re-inserting unit tests

---
 extra/lisp/lisp-tests.factor | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/extra/lisp/lisp-tests.factor b/extra/lisp/lisp-tests.factor
index a5d0092384..9d85355f2e 100644
--- a/extra/lisp/lisp-tests.factor
+++ b/extra/lisp/lisp-tests.factor
@@ -29,9 +29,9 @@ IN: lisp.test
       "((lambda (x y z) (+ x (- y z))) 40 3 1)" lisp-eval
     ] unit-test
     
-!     { { 1 2 3 4 } } [
-!         "((lambda (x y) (quasiquote (1 (unquote x) 3 (unquote y)))) 2 4)" lisp-eval list>seq
-!     ] unit-test
+    { { 1 2 3 4 } } [
+        "((lambda (x y) (quasiquote (1 (unquote x) 3 (unquote y)))) 2 4)" lisp-eval list>seq
+    ] unit-test
     
     { T{ lisp-symbol f "if" } } [
         "(defmacro if (pred tr fl) (quasiquote (cond ((unquote pred) (unquote tr)) (#t (unquote fl)))))" lisp-eval
@@ -41,9 +41,9 @@ IN: lisp.test
         T{ lisp-symbol f "if" } lisp-macro?
     ] unit-test
     
-!     { 1 } [
-!       "(if #t 1 2)" lisp-eval
-!     ] unit-test
+    { 1 } [
+      "(if #t 1 2)" lisp-eval
+    ] unit-test
     
     { "b" } [
       "(cond (#f \"a\") (#t \"b\"))" lisp-eval
@@ -53,8 +53,8 @@ IN: lisp.test
       "(begin (+ 1 4))" lisp-eval
     ] unit-test
     
-!     { 3 } [
-!        "((lambda (x) (if x (begin (+ 1 2)) (- 3 5))) #t)" lisp-eval
-!     ] unit-test
+    { 3 } [
+       "((lambda (x) (if x (begin (+ 1 2)) (- 3 5))) #t)" lisp-eval
+    ] unit-test
     
 ] with-interactive-vocabs