diff options
| author | aspiwack | 2007-05-29 14:04:33 +0000 |
|---|---|---|
| committer | aspiwack | 2007-05-29 14:04:33 +0000 |
| commit | d5914ef6cb90e494471e1e21e1b7ba1b2c842db0 (patch) | |
| tree | 59e36b5f3fa6e111cdac5f45847d625d0ceb6ce7 | |
| parent | 28a551e49864bbfee8a9212fdbcc364d1132b19e (diff) | |
Corrected the treatment of negative numbers for the bigZ parser. And
corrected a small typo in an error message (bogN instead of bigN).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9870 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | parsing/g_intsyntax.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/parsing/g_intsyntax.ml b/parsing/g_intsyntax.ml index 2c3189087c..7abafb070e 100644 --- a/parsing/g_intsyntax.ml +++ b/parsing/g_intsyntax.ml @@ -203,7 +203,7 @@ let bigN_of_pos_bigint dloc n = result hght (word_of_pos_bigint dloc hght n) let bigN_error_negative dloc = - Util.user_err_loc (dloc, "interp_bigN", Pp.str "bogN are only non-negative numbers") + Util.user_err_loc (dloc, "interp_bigN", Pp.str "bigN are only non-negative numbers") let interp_bigN dloc n = if is_pos_or_zero n then @@ -281,7 +281,7 @@ let interp_bigZ dloc n = if is_pos_or_zero n then RApp (dloc, ref_pos, [bigN_of_pos_bigint dloc n]) else - RApp (dloc, ref_neg, [bigN_of_pos_bigint dloc n]) + RApp (dloc, ref_neg, [bigN_of_pos_bigint dloc (neg n)]) (* pretty printing functions for bigZ *) let bigint_of_bigZ = function |