Make sequence-view typed. Fixup tests.

diff --git a/core/classes/tuple/tuple-tests.factor b/core/classes/tuple/tuple-tests.factor
index d97f0e5e118f78074f6906e8b07b096b878bf9b6..797f90020dd4726eed9247a79950f08f9133544a 100644 (file)
--- a/core/classes/tuple/tuple-tests.factor
+++ b/core/classes/tuple/tuple-tests.factor
@@ -195,7 +195,8 @@ M: string silly "t" ;
 
 M: vector silly "z" ;
 
-{ "zz" } [ 123 <reversed> silly nip ] unit-test
+[ 123 <reversed> ] must-fail
+{ "zz" } [ { 123 } <reversed> silly nip ] unit-test
 
 ! Typo
 SYMBOL: not-a-tuple-class
@@ -624,9 +625,9 @@ must-fail-with
 ] unit-test
 
 
-{ } [
-    "IN: sequences TUPLE: reversed { seq read-only } ;" eval( -- )
-] unit-test
+! { } [
+!     "IN: sequences TUPLE: reversed { seq read-only } ;" eval( -- )
+! ] unit-test
 
 
 TUPLE: bogus-hashcode-1 x ;

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 1a9f50d99227e496d1b165fdeb7b1bc8cff471cc..f740ecaa09f019aa3956107755a0e4e98f99fcfa 100644 (file)
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -209,7 +209,7 @@ M: virtual-sequence new-sequence virtual-exemplar new-sequence ; inline
 
 INSTANCE: virtual-sequence sequence
 
-TUPLE: sequence-view { seq read-only } ;
+TUPLE: sequence-view { seq sequence read-only } ;
 
 M: sequence-view virtual-exemplar seq>> ; inline
 M: sequence-view virtual@ seq>> ; inline