Fixing typo in lists-tests

db4
James Cash 2008-06-03 23:38:56 -04:00
parent 65f9fd9231
commit ed0468b8f5
1 changed files with 16 additions and 16 deletions

View File

@ -9,7 +9,7 @@ IN: lists.tests
T{ cons f 2 T{ cons f 2
T{ cons f 3 T{ cons f 3
T{ cons f 4 T{ cons f 4
nil } } } } [ 2 + ] lmap T{ cons f f f } } } } } [ 2 + ] lmap
] unit-test ] unit-test
{ 10 } [ { 10 } [
@ -17,23 +17,23 @@ IN: lists.tests
T{ cons f 2 T{ cons f 2
T{ cons f 3 T{ cons f 3
T{ cons f 4 T{ cons f 4
nil } } } } 0 [ + ] lreduce T{ cons f f f } } } } } 0 [ + ] lreduce
] unit-test ] unit-test
T{ { T{ cons f
cons
f
1 1
T{ T{ cons f
cons
f
2 2
T{ T{ cons f
cons T{ cons f
f 3
T{ cons f 3 T{ cons f 4 T{ cons f 5 nil } } } T{ cons f
T{ cons f f 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 { 1 2 { 3 4 { 5 } } } seq>cons
] unit-test ] unit-test