From bcce56f46bb18abecd0cfe4f0ee254dbda301be9 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 1 May 2013 14:09:34 -0700
Subject: [PATCH] sequences.extras: cleanup, make reverse-as faster.

---
 extra/sequences/extras/extras.factor | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index 708b395315..46d8f7541d 100644
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -361,7 +361,8 @@ INSTANCE: odds immutable-sequence
 <PRIVATE
 
 : (reverse) ( seq -- newseq )
-    dup [ length ] keep new-sequence [ 0 swap copy ] keep reverse! ;
+    dup [ length ] keep new-sequence
+    [ 0 swap copy-unsafe ] keep reverse! ;
 
 PRIVATE>
 
@@ -391,14 +392,18 @@ PRIVATE>
         ]
     ] keep dup branch? [ drop f ] unless make ;
 
+<PRIVATE
+
 : (map-find-index) ( seq quot find-quot -- result elt index )
     [ [ f ] 2dip [ [ nip ] 2dip call dup ] curry ] dip call
     [ [ [ drop f ] unless ] keep ] dip ; inline
 
+PRIVATE>
+
 : map-find-index ( ... seq quot: ( ... elt index -- ... result/f ) -- ... result elt index )
     [ find-index ] (map-find-index) ; inline
 
-: filter-length ( seq n -- seq' ) swap [ length = ] with filter ;
+: filter-length ( seq n -- seq' ) '[ length _ = ] filter ;
 
 : all-shortest ( seqs -- seqs' ) dup shortest length filter-length ;