diff --git a/basis/compiler/cfg/utilities/utilities.factor b/basis/compiler/cfg/utilities/utilities.factor
index e85da321c4..dc535d46c2 100644
--- a/basis/compiler/cfg/utilities/utilities.factor
+++ b/basis/compiler/cfg/utilities/utilities.factor
@@ -53,13 +53,6 @@ IN: compiler.cfg.utilities
     from to bb update-predecessors
     from to bb update-successors ;
 
-: add-instructions ( bb quot -- )
-    [ instructions>> building ] dip '[
-        building get pop
-        [ @ ] dip
-        ,
-    ] with-variable ; inline
-
 : has-phis? ( bb -- ? )
     instructions>> first ##phi? ;