compiler.cfg.renaming.functor: fix ##parallel-copy methods

diff --git a/basis/compiler/cfg/renaming/functor/functor.factor b/basis/compiler/cfg/renaming/functor/functor.factor
index 32b52f43213e43cf53f2763aa8a817cc4ca7dd11..cfb7d76081f7b732955d0e222df0eaadd10d423e 100644 (file)
--- a/basis/compiler/cfg/renaming/functor/functor.factor
+++ b/basis/compiler/cfg/renaming/functor/functor.factor
@@ -32,7 +32,7 @@ M: insn rename-insn-temps drop ;
 
 ! Special rename-insn-defs methods
 M: ##parallel-copy rename-insn-defs
-    [ [ first2 [ DEF-QUOT ] dip 2array ] map ] change-values ;
+    [ [ first2 DEF-QUOT dip 2array ] map ] change-values drop ;
 
 M: ##phi rename-insn-defs DEF-QUOT change-dst drop ;
 
@@ -47,7 +47,7 @@ M: ##callback-inputs rename-insn-defs
 
 ! Special rename-insn-uses methods
 M: ##parallel-copy rename-insn-uses
-    [ [ first2 USE-QUOT 2array ] map ] change-values ;
+    [ [ first2 USE-QUOT call 2array ] map ] change-values drop ;
 
 M: ##phi rename-insn-uses
     [ USE-QUOT assoc-map ] change-inputs drop ;