basis/extra: removing '[ @ ] in favor of _ for fried quotations.

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

diff --git a/basis/combinators/smart/smart.factor b/basis/combinators/smart/smart.factor
index 9102cfbc0281bf60e33cb0db1fb9794863d933d5..60dfd714ecbca20ff6769cd367c40ac314500396 100644 (file)
--- a/basis/combinators/smart/smart.factor
+++ b/basis/combinators/smart/smart.factor
@@ -139,7 +139,7 @@ MACRO: map-reduce-outputs ( quot mapper reducer -- quot )
 
 MACRO: smart-reduce ( reduce-quots -- quot )
     unzip [ [ ] like ] bi@ dup length dup '[
-        [ @ ] dip [ @ _ cleave-curry _ spread* ] each
+        _ dip [ @ _ cleave-curry _ spread* ] each
     ] ;
 
 MACRO: smart-map-reduce ( map-reduce-quots -- quot )
@@ -151,7 +151,7 @@ MACRO: smart-map-reduce ( map-reduce-quots -- quot )
 
 MACRO: smart-2reduce ( 2reduce-quots -- quot )
     unzip [ [ ] like ] bi@ dup length dup '[
-        [ @ ] 2dip
+        _ 2dip
         [ @ _ [ cleave-curry ] [ cleave-curry ] bi _ spread* ] 2each
     ] ;