[r2005-05-17 16:27:50 by beppe] erased debugging code

Original author: beppe
Date: 2005-05-17 16:27:50+00:00

types/builtin.ml

@@ -215,8 +215,7 @@ unary_op_warning "int_of"
 (*     try Value.Integer (Intervals.V.mk (U.get_str s)) *)
 (*                 UTF-8 is ASCII compatible !          *)
 (* modified to allow 0x 0b 0o notations                 *)
-     try Value.Integer (Intervals.V.from_int (
-       try int_of_string(U.get_str s) with Failure _ ->  raise exn_int_of))
+     try Value.Integer (Intervals.V.from_int (int_of_string(U.get_str s)))
      with Failure _ -> raise exn_int_of);;
 
 register_fun "atom_of"