Commits

arkdro committed 8480e1e

rename function

Comments (0)

Files changed (1)

   let mant = Big_int.big_int_of_string short_mant_str in
   sign, mant, new_exp
 
-let make_decimal_term n =
+let make_decimal_tuple n =
   let sign, mant, exp = create_decimal n in
   Eterm.ET_tuple [|Eterm.ET_int (Int32.of_int sign);
                   Eterm.ET_bignum (Num.Big_int mant);