Updating code for make and fry changes

[factor.git] / basis / compiler / tree / tree.factor

diff --git a/basis/compiler/tree/tree.factor b/basis/compiler/tree/tree.factor
index b6c798ca3ca840ecb105d6ea96ed4a3b4a31ada2..05f33902ecd805b6d52c90a14e16f52d181e871f 100755 (executable)
--- a/basis/compiler/tree/tree.factor
+++ b/basis/compiler/tree/tree.factor
@@ -178,7 +178,7 @@ M: #return-recursive inputs/outputs [ in-d>> ] [ out-d>> ] bi ;
 
 : shuffle-effect ( #shuffle -- effect )
     [ in-d>> ] [ out-d>> ] [ mapping>> ] tri
-    '[ , at ] map
+    '[ _ at ] map
     <effect> ;
 
 : recursive-phi-in ( #enter-recursive -- seq )