 M: end-of-stream cursor= eq? ; inline
 M: end-of-stream inc-cursor ; 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

    all- -container- ; inline

: each ( ... container quot: ( ... x -- ... ) -- ... ) container- -each ; inline

!
! sequence cursor

: 2all- ( a b quot -- begin end quot )
    [ 2all ] dip ; inline

ALIAS: -2container- -assoc-

: 2container- ( a b quot -- begin end quot' )
    2all- -2container- ; inline
