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

Lazy lists stack effect fix

db4
Slava Pestov 2008-01-09 17:53:04 -05:00
parent 2bed30672d
commit 9231140a85
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/lazy-lists/lazy-lists.factor
View File

@ -255,7 +255,7 @@ C: <lazy-subset> lazy-subset
: lsubset ( list quot -- result ) : lsubset ( list quot -- result )
over nil? [ 2drop nil ] [ <lazy-subset> <memoized-cons> ] if ; over nil? [ 2drop nil ] [ <lazy-subset> <memoized-cons> ] if ;
: car-subset? ( lazy-subset -- ) : car-subset? ( lazy-subset -- ? )
[ lazy-subset-cons car ] keep [ lazy-subset-cons car ] keep
lazy-subset-quot call ; lazy-subset-quot call ;
@ -264,11 +264,7 @@ C: <lazy-subset> lazy-subset
set-lazy-subset-cons ; set-lazy-subset-cons ;
M: lazy-subset car ( lazy-subset -- car ) M: lazy-subset car ( lazy-subset -- car )
dup car-subset? [ dup car-subset? [ lazy-subset-cons ] [ dup skip ] if car ;
lazy-subset-cons car
] [
dup skip car
] if ;
M: lazy-subset cdr ( lazy-subset -- cdr ) M: lazy-subset cdr ( lazy-subset -- cdr )
dup car-subset? [ dup car-subset? [