steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

lists.lazy: fix luntil

db4
Slava Pestov 2009-11-06 04:31:22 -06:00
parent ad29cb21f9
commit ddd13c8979
2 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/lists/lazy/lazy-tests.factor
View File

@ -35,5 +35,7 @@ IN: lists.lazy.tests
[ [ drop ] leach ] must-infer
[ lnth ] must-infer
[ { 1 2 3 } ] [ { 1 2 3 4 5 } >list [ 2 > ] luntil list>array ] unit-test
[ ] [ "resource:license.txt" utf8 <file-reader> llines list>array drop ] unit-test
[ ] [ "resource:license.txt" utf8 <file-reader> lcontents list>array drop ] unit-test

3
basis/lists/lazy/lazy.factor
View File

@ -114,7 +114,8 @@ M: lazy-until car ( lazy-until -- car )
cons>> car ;
M: lazy-until cdr ( lazy-until -- cdr )
[ quot>> ] [ cons>> unswons ] bi over call( elt -- ? )
[ [ cons>> cdr ] [ quot>> ] bi ]
[ [ cons>> car ] [ quot>> ] bi call( elt -- ? ) ] bi
[ 2drop nil ] [ luntil ] if ;
M: lazy-until nil? ( lazy-until -- ? )