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 1
f T{ cons f
1 2
T{ T{ cons f
cons T{ cons f
f 3
2 T{ cons f
T{ 4
cons T{ cons f
f T{ cons f 5 T{ cons f f f } }
T{ cons f 3 T{ cons f 4 T{ cons f 5 nil } } } 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