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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/cursors/cursors.factor
View File

@ -7,7 +7,7 @@ GENERIC: key ( cursor -- key )
GENERIC: value ( cursor -- value ) GENERIC: value ( cursor -- value )
GENERIC: next ( cursor -- cursor/f ) 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 ) : (sequence-cursor) ( i seq -- cursor/f )
2dup bounds-check? [ sequence-cursor boa ] [ 2drop f ] if ; 2dup bounds-check? [ sequence-cursor boa ] [ 2drop f ] if ;