From 2b10238d4580290fd80050c98e10acf95a4ea554 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 13 Aug 2008 14:17:59 -0500
Subject: [PATCH] Make slots read-only

---
 core/cursors/cursors.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/cursors/cursors.factor b/core/cursors/cursors.factor
index b91d278e06..4bbfd469d3 100644
--- 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 ;