Make slots read-only

db4
Slava Pestov 2008-08-13 14:17:59 -05:00
parent 87cd0a5dab
commit 2b10238d45
1 changed files with 1 additions and 1 deletions

View File

@ -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 ;