sequences.extras: more efficient 1reduce without unclip

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index fb2a7ee4372af9a24ffae9cbc0a2ef39fd838cf0..333236e74085ca8bbfb622c5783de106c08aef3c 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -357,7 +357,7 @@ PRIVATE>
     [ f f ] [ unclip ] if-empty ;
 
 : 1reduce ( seq quot: ( prev elt -- next ) -- result )
-    [ ?unclip ] dip reduce ; inline
+    [ f ] swap '[ [ ] _ map-reduce ] if-empty ; inline
 
 <PRIVATE