compiler.cfg: unlikely? slot unused, lets get rid of it

basis/compiler/cfg/cfg-docs.factor

@@ -10,7 +10,6 @@ HELP: basic-block
     { { $slot "successors" } { "A " { $link vector } " of basic blocks that may be executed directly after this block. Most blocks only have one successor but a block that checks where an if-condition should branch to would have two for example." } }
     { { $slot "predecessors" } { "The opposite of successors -- a " { $link vector } " of basic blocks from which the execution may have arrived into this block." } }
     { { $slot "instructions" } { "A " { $link vector } " of " { $link insn } " tuples which form the instructions of the basic block." } }
-    { { $slot "unlikely?" } { "Unused boolean slot." } }
   }
 } ;
 

basis/compiler/cfg/cfg.factor

@@ -9,8 +9,7 @@ number
 { instructions vector }
 { successors vector }
 { predecessors vector }
-{ kill-block? boolean }
-{ unlikely? boolean } ;
+{ kill-block? boolean } ;
 
 : <basic-block> ( -- bb )
     basic-block new

basis/compiler/cfg/gc-checks/gc-checks.factor

@@ -77,7 +77,7 @@ M: ##box-displaced-alien allocation-size* drop 5 cells ;
 : <gc-call> ( -- bb )
     <basic-block>
     [ <gc-map> ##call-gc, ##branch, ] V{ } make
-    >>instructions t >>unlikely? ;
+    >>instructions ;
 
 :: connect-gc-checks ( bbs -- )
     ! Every basic block but the last has two successors:

basis/compiler/cfg/linearization/linearization.factor

@@ -67,9 +67,7 @@ SYMBOLS: work-list loop-heads visited ;
 : (linearization-order) ( cfg -- bbs )
     init-linearization-order
 
-    [ work-list get [ process-block ] slurp-deque ] { } make
-    ! [ unlikely?>> not ] partition append
-    ;
+    [ work-list get [ process-block ] slurp-deque ] { } make ;
 
 PRIVATE>