     { seq read-only }
     { n fixnum read-only } ;
 C: <sequence-cursor> sequence-cursor
-    
+
 INSTANCE: sequence container
 
 M: sequence begin-cursor 0 <sequence-cursor> ; inline


M: zip-cursor inc-cursor ( cursor -- cursor' )
    [ keys>> inc-cursor ] [ values>> inc-cursor ] bi <zip-cursor> ; inline
    
INSTANCE: zip-cursor input-cursor

M: zip-cursor cursor-key-value

! (c)2010 Joe Groff bsd license
USING: accessors assocs combinators.short-circuit fry
generalizations hash-sets hashtables kernel macros math
math.functions math.order sequences sets ;
FROM: sequences.private => nth-unsafe set-nth-unsafe ;
FROM: hashtables.private => tombstone? ;
IN: cursors
