1 files changed, 2 insertions, 2 deletions
diff --git a/il.fun b/il.fun
index 9f8c2b7..416f4b0 100644
--- a/il.fun
+++ b/il.fun
@@ -1202,7 +1202,7 @@ functor IL(P: PARSER) = struct
     | P.StmtDoWhile pair => convDoWhile ctx pair
     | P.StmtBreak => convBreakOrCont true ctx
     | P.StmtContinue => convBreakOrCont false ctx
-    | P.StmtNone => raise Unreachable
+    | P.StmtNone => ()
 
   val Pl = fn z =>
   let
@@ -1382,7 +1382,7 @@ functor IL(P: PARSER) = struct
   let
     val c = if class = VR4 then "w4" else "w8"
 
-    val () = printf `"%" I idx `" " `c
+    val () = printf `"%" Ip 4 idx `" " `c
           `": defs = " Plist i defs (", ", true, 0)
           `", uses = " Plist i use (", ", true, 0) %
   in