Reinstating unit tests for lisp

diff --git a/extra/lisp/lisp-tests.factor b/extra/lisp/lisp-tests.factor
index 8dc3b65ffe66465434a1a002b1e54ff8021ffba0..fb8bf6de58bc54ae6755db4a548085c8f8133c86 100644 (file)
--- a/extra/lisp/lisp-tests.factor
+++ b/extra/lisp/lisp-tests.factor
@@ -41,9 +41,9 @@ IN: lisp.test
       "((lambda (x y) (+ x y)) 1 2)" lisp-eval
     ] unit-test
     
-!     { 42 } [
-!       "((lambda (x y z) (+ x (- y z))) 40 3 1)" lisp-eval
-!     ] unit-test
+    { 42 } [
+      "((lambda (x y z) (+ x (- y z))) 40 3 1)" lisp-eval
+    ] unit-test
     
     { "b" } [
       "(cond (#f \"a\") (#t \"b\"))" lisp-eval
@@ -69,12 +69,12 @@ 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
     
-!     { 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