math: adding assert-positive and assert-negative

[factor.git] / core / sequences / sequences.factor

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 028ef4f7f94956de0a9281af732a0f616a043444..29a2c214af50b7031eca4c1a1d534765c66f9039 100644 (file)
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -275,7 +275,7 @@ TUPLE: repetition
     { elt read-only } ;
 
 : <repetition> ( len elt -- repetition )
-    over 0 < [ non-negative-integer-expected ] when
+    over 0 < [ non-negative-number-expected ] when
     repetition boa ; inline
 
 M: repetition length length>> ; inline