From c25abc5d00a7fa952c7c5875cb9efd592b713625 Mon Sep 17 00:00:00 2001
From: James Cash <james.nvc@gmail.com>
Date: Mon, 8 Sep 2008 23:37:55 -0400
Subject: [PATCH] Adding tests for <LISP ... LISP>

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

diff --git a/extra/lisp/lisp-tests.factor b/extra/lisp/lisp-tests.factor
index 20f6420056..48f6419d30 100644
--- a/extra/lisp/lisp-tests.factor
+++ b/extra/lisp/lisp-tests.factor
@@ -76,12 +76,12 @@ IN: lisp.test
         "((lambda (&rest xs) xs) 1 2 3 4)" lisp-eval cons>seq
     ] unit-test
     
-!     { 10 } [
-!         <LISP (begin (+ 1 2) (+ 9 1)) LISP>
-!     ] unit-test
+    { 10 } [
+        <LISP (begin (+ 1 2) (+ 9 1)) LISP>
+    ] unit-test
     
-!     { 4 } [
-!         <LISP ((lambda (x y) (if x (+ 1 y) (+ 2 y))) #t 3) LISP>
-!     ] unit-test
+    { 4 } [
+        <LISP ((lambda (x y) (if x (+ 1 y) (+ 2 y))) #t 3) LISP>
+    ] unit-test
     
 ] with-interactive-vocabs