factor: remove rest of double paren words.

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

diff --git a/basis/combinators/smart/smart.factor b/basis/combinators/smart/smart.factor
index 04bb94fde05a3e4b24f6a6ee2d69c13fd06aaf51..46c806d84da76023620febdd67b387d2a40e6896 100644 (file)
--- a/basis/combinators/smart/smart.factor
+++ b/basis/combinators/smart/smart.factor
@@ -146,7 +146,7 @@ MACRO: smart-map-reduce ( map-reduce-quots -- quot )
     [ keys ] [ [ [ ] concat-as ] [ ] map-as ] bi dup length dup '[
         [ first _ cleave ] keep
         [ @ _ cleave-curry _ spread* ]
-        [ 1 ] 2dip (each) (each-integer)
+        [ 1 ] 2dip setup-each (each-integer)
     ] ;
 
 MACRO: smart-2reduce ( 2reduce-quots -- quot )