sequences: fix `from` words

[factor.git] / basis / combinators / smart / smart.factor

diff --git a/basis/combinators/smart/smart.factor b/basis/combinators/smart/smart.factor
index 8b597a58b4b76c23e5247862084153fd3b016c4d..28a09eb2bcd25c6c40974a0e413522929a193b67 100644 (file)
--- a/basis/combinators/smart/smart.factor
+++ b/basis/combinators/smart/smart.factor
@@ -158,7 +158,7 @@ MACRO: smart-2map-reduce ( 2map-reduce-quots -- quot )
     [ keys ] [ [ [ ] concat-as ] [ ] map-as ] bi dup length dup '[
         [ [ first ] bi@ _ 2cleave ] 2keep
         [ @ _ [ cleave-curry ] [ cleave-curry ] bi _ spread* ]
-        1 2each-from
+        1 -roll 2each-from
     ] ;
 
 : smart-loop ( ..a quot: ( ..a -- ..b ? ) -- ..b )