]> gitweb.factorcode.org Git - factor.git/commitdiff
Revert "sequences: require integers for slice and repetition."
authorJohn Benediktsson <mrjbq7@gmail.com>
Wed, 12 Mar 2014 14:18:12 +0000 (07:18 -0700)
committerJohn Benediktsson <mrjbq7@gmail.com>
Wed, 12 Mar 2014 14:27:39 +0000 (07:27 -0700)
This reverts commit 5e87cdb3a9b5885c6648ffaf6e5e9a2edc5fd200.

core/sequences/sequences-docs.factor
core/sequences/sequences.factor

index 108806f08d5c4e2f5af29b3565a87bac7fd62a4c..ad0d557637462b0774e347760cc43f66845676e0 100644 (file)
@@ -1120,7 +1120,7 @@ HELP: trim-tail-slice
 { $examples
     { $example "USING: prettyprint math sequences ;"
                "{ 0 0 1 2 3 0 0 } [ zero? ] trim-tail-slice ."
-               "T{ slice { to 5 } { seq { 0 0 1 2 3 0 0 } } }"
+               "T{ slice { from 0 } { to 5 } { seq { 0 0 1 2 3 0 0 } } }"
     }
 } ;
 
index 62b5e840f21b002fd701db4123027189383361ef..2662c6c7209ace35055b276c15719c5727906738 100644 (file)
@@ -214,8 +214,8 @@ INSTANCE: reversed virtual-sequence
 
 ! A slice of another sequence.
 TUPLE: slice
-{ from integer read-only }
-{ to integer read-only }
+{ from read-only }
+{ to read-only }
 { seq read-only } ;
 
 : collapse-slice ( m n slice -- m' n' seq )
@@ -266,7 +266,7 @@ M: slice length [ to>> ] [ from>> ] bi - ; inline
 INSTANCE: slice virtual-sequence
 
 ! One element repeated many times
-TUPLE: repetition { len integer read-only } { elt read-only } ;
+TUPLE: repetition { len read-only } { elt read-only } ;
 
 : <repetition> ( len elt -- repetition )
     over 0 < [ non-negative-integer-expected ] when