From 09751634af9537fc6fdc68ff49e85af48b9ec448 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 22 Oct 2012 11:13:56 -0700
Subject: [PATCH] Revert "sequences: change map-integers to require fixnum
 length."

This reverts commit 0f71db0c9716682bedf3d7b260e8b0ea5993bfc0.
---
 core/sequences/sequences.factor | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index d30c8bcef6..201bffe111 100644
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -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