sequences: Fix tests that broke when nth could only be integers. Undo integer>fixnum...

diff --git a/basis/compiler/tree/cleanup/cleanup-tests.factor b/basis/compiler/tree/cleanup/cleanup-tests.factor
index a383b347f971f35cc8bbe992de52b3ff6769e030..ef4aa1acfe36f64b8a67f7a7de580fd3e271b980 100644 (file)
--- a/basis/compiler/tree/cleanup/cleanup-tests.factor
+++ b/basis/compiler/tree/cleanup/cleanup-tests.factor
@@ -357,13 +357,13 @@ cell-bits 32 = [
 [ f ] [
     [
         { integer } declare iota [ ] map
-    ] \ >fixnum inlined?
+    ] \ integer>fixnum inlined?
 ] unit-test
 
 [ f ] [
     [
         { integer } declare { } set-nth-unsafe
-    ] \ >fixnum inlined?
+    ] \ integer>fixnum inlined?
 ] unit-test
 
 [ f ] [

diff --git a/core/growable/growable-tests.factor b/core/growable/growable-tests.factor
index 584d6a1918b2797a53e8a4f34c677718fadb5cf4..7c4942d7fa48baed85ef09b38148d321c819591f 100644 (file)
--- a/core/growable/growable-tests.factor
+++ b/core/growable/growable-tests.factor
@@ -20,7 +20,7 @@ must-fail
 [ most-positive-fixnum 2 * 2 + V{ } clone set-length ]
 must-fail
 
-[ ] [
+[
     10 V{ } [ set-length ] keep
     0.5 swap set-length
-] unit-test
+] must-fail

diff --git a/core/sequences/sequences-tests.factor b/core/sequences/sequences-tests.factor
index a4167bfcbda3d7fb5204dacb1cbe6287b61dfed8..2ad5847cc094739344022d3c43a7d9cf9ac064de 100644 (file)
--- a/core/sequences/sequences-tests.factor
+++ b/core/sequences/sequences-tests.factor
@@ -214,7 +214,6 @@ unit-test
 
 [ V{ "a" "b" } V{ } ] [ { "X" "a" "b" } { "X" } drop-prefix [ >vector ] bi@ ] unit-test
 
-[ 0.5 10 iota nth ] [ no-method? ] must-fail-with
 [ 0.5 { 1 2 3 } nth ] [ no-method? ] must-fail-with
 [ 0.5 "asdfasdf" nth ] [ no-method? ] must-fail-with
 

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index dd6774011e44dd52780c0fff8d348a375f66e5cb..f6cdebcc9aeb13a0da182bd07874a7316597ab16 100644 (file)
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -106,7 +106,7 @@ TUPLE: iota { n integer read-only } ;
 : iota ( n -- iota ) \ iota boa ; inline
 
 M: iota length n>> ; inline
-M: iota nth-unsafe drop integer>fixnum ; inline
+M: iota nth-unsafe drop ; inline
 
 INSTANCE: iota immutable-sequence