]> gitweb.factorcode.org Git - factor.git/commitdiff
Revert "sequences: change map-integers to require fixnum length."
authorJohn Benediktsson <mrjbq7@gmail.com>
Mon, 22 Oct 2012 18:13:56 +0000 (11:13 -0700)
committerJohn Benediktsson <mrjbq7@gmail.com>
Mon, 22 Oct 2012 18:13:56 +0000 (11:13 -0700)
This reverts commit 0f71db0c9716682bedf3d7b260e8b0ea5993bfc0.

core/sequences/sequences.factor

index d30c8bcef662fa173660de9a659558868f479e42..201bffe111ced8b1e968e907e2f634aafe59aefc 100644 (file)
@@ -440,8 +440,7 @@ PRIVATE>
     swapd each ; inline
 
 : map-integers ( ... len quot: ( ... i -- ... elt ) exemplar -- ... newseq )
-    [ integer>fixnum-strict ] 2dip [ over ] dip
-    [ [ collect ] keep ] new-like ; inline
+    [ over ] dip [ [ collect ] keep ] new-like ; inline
 
 : map-as ( ... seq quot: ( ... elt -- ... newelt ) exemplar -- ... newseq )
     [ (each) ] dip map-integers ; inline