Remove leftover debugging change

Author: OlivierNicole

compiler/lib/code.ml

@@ -154,8 +154,7 @@ end = struct
 
   let to_string ?origin i = Var_printer.to_string printer ?origin i
 
-  (*let print f x = Format.fprintf f "v%d" x*)
-  let print f x = Format.fprintf f "%s" (to_string x)
+  let print f x = Format.fprintf f "v%d" x
 
   (* Format.fprintf f "%s" (to_string x) *)