compiler.cfg.ssa.destruction.copies: factor out add-instructions combinator into compiler.cfg.utilities

basis/compiler/cfg/ssa/destruction/copies/copies.factor

@@ -1,7 +1,8 @@
 ! Copyright (C) 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors assocs hashtables fry kernel make namespaces sets
-sequences compiler.cfg.ssa.destruction.state compiler.cfg.parallel-copy ;
+USING: accessors assocs hashtables fry kernel make namespaces
+sets sequences compiler.cfg.ssa.destruction.state
+compiler.cfg.parallel-copy compiler.cfg.utilities ;
 IN: compiler.cfg.ssa.destruction.copies
 
 ERROR: bad-copy ;
@@ -20,9 +21,5 @@ ERROR: bad-copy ;
 
 : insert-copies ( -- )
     waiting get [
-        [ instructions>> building ] dip '[
-            building get pop
-            _ compute-copies parallel-copy
-            ,
-        ] with-variable
+        '[ _ compute-copies parallel-copy ] add-instructions
     ] assoc-each ;

basis/compiler/cfg/utilities/utilities.factor

@@ -43,6 +43,13 @@ SYMBOL: visited
     to predecessors>> [ dup from eq? [ drop bb ] when ] change-each
     from successors>> [ dup to eq? [ drop bb ] when ] change-each ;
 
+: add-instructions ( bb quot -- )
+    [ instructions>> building ] dip '[
+        building get pop
+        @
+        ,
+    ] with-variable ; inline
+
 : <simple-block> ( insns -- bb )
     <basic-block>
     swap >vector