Fix generator regression

core/generator/generator.factor

@@ -130,7 +130,7 @@ UNION: #terminal
 M: node generate-node drop iterate-next ;
 
 : %call ( word -- )
-    dup primitive? [ %call-primitive ] [ %call-label ] if ;
+    dup primitive? [ "Call prim: " write dup . %call-primitive ] [ %call-label ] if ;
 
 : %jump ( word -- )
     {
@@ -138,6 +138,7 @@ M: node generate-node drop iterate-next ;
             drop current-label-start get %jump-label
         ] }
         { [ dup primitive? ] [
+                "Jump prim: " write dup .
             %epilogue-later %jump-primitive
         ] }
         { [ t ] [

core/generator/registers/registers.factor

@@ -458,6 +458,12 @@ M: loc lazy-store
         dup loc? over cached? or [ 2drop ] [ %move ] if
     ] each-loc ;
 
+: reset-phantom ( phantom -- )
+    dup phantom-locs* over delete-all swap push-all ;
+
+: reset-phantoms ( -- )
+    [ reset-phantom ] each-phantom ;
+
 : finalize-contents ( -- )
     finalize-locs finalize-vregs [ delete-all ] each-phantom ;