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

cursors: fix load errors w/o auto-use

Joe Groff 2010-03-24 14:37:01 -07:00
parent 33e5e1efc7
commit 7759059237
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
extra/cursors/cursors.factor
View File

@ -1,6 +1,6 @@
! (c)2010 Joe Groff bsd license ! (c)2010 Joe Groff bsd license
USING: accessors arrays assocs combinators.short-circuit fry USING: accessors arrays assocs combinators.short-circuit fry
hashtables kernel locals math math.functions sequences ; hashtables kernel locals math math.functions math.order sequences ;
FROM: sequences.private => nth-unsafe set-nth-unsafe ; FROM: sequences.private => nth-unsafe set-nth-unsafe ;
FROM: hashtables.private => tombstone? ; FROM: hashtables.private => tombstone? ;
IN: cursors IN: cursors
@ -116,11 +116,6 @@ M: end-of-stream cursor= eq? ; inline
M: end-of-stream inc-cursor ; inline M: end-of-stream inc-cursor ; inline
M: end-of-stream cursor-stream-ended? drop t ; inline M: end-of-stream cursor-stream-ended? drop t ; inline
INSTANCE: finite-stream-cursor container
M: finite-stream-cursor begin-cursor ; inline
M: finite-stream-cursor end-cursor drop end-of-stream ; inline
! !
! basic iterator ! basic iterator
! !
@ -229,6 +224,11 @@ INSTANCE: container collection
: each ( ... container quot: ( ... x -- ... ) -- ... ) container- -each ; inline : each ( ... container quot: ( ... x -- ... ) -- ... ) container- -each ; inline
INSTANCE: finite-stream-cursor container
M: finite-stream-cursor begin-cursor ; inline
M: finite-stream-cursor end-cursor drop end-of-stream ; inline
! !
! sequence cursor ! sequence cursor
! !
@ -479,7 +479,7 @@ M: zip-cursor cursor-key-value
: 2all- ( a b quot -- begin end quot ) : 2all- ( a b quot -- begin end quot )
[ 2all ] dip ; inline [ 2all ] dip ; inline
ALIAS: -2container- assoc ; inline ALIAS: -2container- -assoc-
: 2container- ( a b quot -- begin end quot' ) : 2container- ( a b quot -- begin end quot' )
2all- -2container- ; inline 2all- -2container- ; inline