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

[factor.git] / basis / compiler / cfg / linear-scan / assignment / assignment.factor

diff --git a/basis/compiler/cfg/linear-scan/assignment/assignment.factor b/basis/compiler/cfg/linear-scan/assignment/assignment.factor
index 1ce2dd3dbed241b954bc4ae5dae671eacd418847..345d11b567522b079caa6a1d5af884c7eca2473e 100644 (file)
--- a/basis/compiler/cfg/linear-scan/assignment/assignment.factor
+++ b/basis/compiler/cfg/linear-scan/assignment/assignment.factor
@@ -103,7 +103,7 @@ RENAMING: assign [ vreg>reg ] [ vreg>reg ] [ vreg>reg ]
 
 : change-insn-gc-roots ( gc-map-insn quot: ( x -- x ) -- )
     [ gc-map>> ] dip [ swap gc-roots>> swap map! drop ]
-    [ '[ [ [ @ ] bi@ ] assoc-map ] change-derived-roots drop ] 2bi ; inline
+    [ '[ [ _ bi@ ] assoc-map ] change-derived-roots drop ] 2bi ; inline
 
 : spill-required? ( live-interval root-leaders n -- ? )
     [ [ vreg>> ] dip sets:in? ] [ swap covers? ] bi-curry* bi or ;