compiler: more use of ?adjoin.

basis/compiler/cfg/dce/dce.factor

@@ -59,11 +59,9 @@ GENERIC: compute-live-vregs ( insn -- )
 
 : (record-live) ( vregs -- )
     [
-        dup live-vreg? [ drop ] [
+        dup live-vregs get ?adjoin [
-            [ live-vregs get adjoin ]
+            liveness-graph get at (record-live)
-            [ liveness-graph get at (record-live) ]
+        ] [ drop ] if
-            bi
-        ] if
     ] each ;
 
 : record-live ( insn -- )

basis/compiler/cfg/rpo/rpo.factor

@@ -6,13 +6,12 @@ FROM: namespaces => set ;
 IN: compiler.cfg.rpo
 
 : post-order-traversal ( visited bb -- visited )
-    dup pick in? [ drop ] [
+    dup pick ?adjoin [
-        dup pick adjoin
         [
             successors>> <reversed>
             [ post-order-traversal ] each
         ] [ , ] bi
-    ] if ; inline recursive
+    ] [ drop ] if ; inline recursive
 
 : number-blocks ( blocks -- )
     dup length iota <reversed>

basis/compiler/cfg/ssa/construction/construction.factor

@@ -87,9 +87,9 @@ SYMBOLS: stacks pushed ;
 
 : gen-name ( vreg -- vreg' )
     [ next-vreg dup ] dip
-    dup pushed get 2dup in?
+    dup pushed get ?adjoin
-    [ 2drop stacks get at set-last ]
+    [ stacks get push-at ]
-    [ adjoin stacks get push-at ]
+    [ stacks get at set-last ]
     if ;
 
 : (top-name) ( vreg -- vreg' )

basis/compiler/cfg/utilities/utilities.factor

@@ -19,12 +19,11 @@ IN: compiler.cfg.utilities
     } 1&& ;
 
 : (skip-empty-blocks) ( visited bb -- visited bb' )
-    dup pick in? [
     dup empty-block? [
-            dup pick adjoin
+        dup pick ?adjoin [
             successors>> first (skip-empty-blocks)
         ] when
-    ] unless ; inline recursive
+    ] when ; inline recursive
 
 : skip-empty-blocks ( bb -- bb' )
     [ HS{ } clone ] dip (skip-empty-blocks) nip ;