From ed0468b8f520d4d0f568e3ca3f01fe985ab77bef Mon Sep 17 00:00:00 2001
From: James Cash <james.nvc@gmail.com>
Date: Tue, 3 Jun 2008 23:38:56 -0400
Subject: [PATCH] Fixing typo in lists-tests

---
 extra/lists/lists-tests.factor | 32 ++++++++++++++++----------------
 1 file changed, 16 insertions(+), 16 deletions(-)

diff --git a/extra/lists/lists-tests.factor b/extra/lists/lists-tests.factor
index 8e78872a52..16bc65ebb3 100644
--- a/extra/lists/lists-tests.factor
+++ b/extra/lists/lists-tests.factor
@@ -9,7 +9,7 @@ IN: lists.tests
         T{ cons f 2 
             T{ cons f 3
                 T{ cons f 4
-                nil } } } } [ 2 + ] lmap
+                T{ cons f f f } } } } } [ 2 + ] lmap
 ] unit-test
 
 { 10 } [
@@ -17,23 +17,23 @@ IN: lists.tests
         T{ cons f 2 
             T{ cons f 3
                 T{ cons f 4
-                nil } } } } 0 [ + ] lreduce
+                T{ cons f f f } } } } } 0 [ + ] lreduce
 ] unit-test
     
-T{
-    cons
-    f
-    1
-    T{
-        cons
-        f
-        2
-        T{
-            cons
-            f
-            T{ cons f 3 T{ cons f 4 T{ cons f 5 nil } } }
-            T{ cons f f f }
-        } } } [
+{ T{ cons f
+      1
+      T{ cons f
+          2
+          T{ cons f
+              T{ cons f
+                  3
+                  T{ cons f
+                      4
+                      T{ cons f
+                          T{ cons f 5 T{ cons f f f } }
+                          T{ cons f f f } } } }
+          T{ cons f f f } } } }
+} [
     { 1 2 { 3 4 { 5 } } } seq>cons
 ] unit-test