]> gitweb.factorcode.org Git - factor.git/commitdiff
Adding tests for <LISP ... LISP>
authorJames Cash <james.nvc@gmail.com>
Tue, 9 Sep 2008 03:37:55 +0000 (23:37 -0400)
committerJames Cash <james.nvc@gmail.com>
Tue, 9 Sep 2008 03:39:15 +0000 (23:39 -0400)
extra/lisp/lisp-tests.factor

index 20f642005607e1bb5dc8bf916f733941a3b186fb..48f6419d3031c5f32958f7fc7bf1d68a5369b4a3 100644 (file)
@@ -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