Make slots read-only

2008-08-13 14:17:59 -05:00 · 2008-08-13 14:17:59 -05:00 · 2b10238d45
parent 87cd0a5dab
commit 2b10238d45
1 changed files with 1 additions and 1 deletions
--- a/core/cursors/cursors.factor
+++ b/core/cursors/cursors.factor
@ -7,7 +7,7 @@ GENERIC: key ( cursor -- key )
 GENERIC: value ( cursor -- value )
 GENERIC: next ( cursor -- cursor/f )

-TUPLE: sequence-cursor i seq ;
+TUPLE: sequence-cursor { i read-only } { seq read-only } ;

 : (sequence-cursor) ( i seq -- cursor/f )
    2dup bounds-check? [ sequence-cursor boa ] [ 2drop f ] if ;