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

lazy-lists: remove unneeded helper function

chris.double 2006-10-04 23:17:21 +00:00
parent 9f4eab14bd
commit 32d3baed21
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
contrib/lazy-lists/lists.factor
View File

@ -290,13 +290,6 @@ M: lazy-zip nil? ( lazy-zip -- bool )
: lcartesian-product ( list1 list2 -- result ) : lcartesian-product ( list1 list2 -- result )
swap [ swap [ 2array ] lmap-with ] lmap-with lconcat ; swap [ swap [ 2array ] lmap-with ] lmap-with lconcat ;
: (lcartesian-product*) ( car cdr -- result )
dup nil? [
drop
] [
car lcartesian-product
] if ;
: lcartesian-product* ( lists -- result ) : lcartesian-product* ( lists -- result )
dup nil? [ dup nil? [
drop nil drop nil