diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-02-17 17:11:53 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-02-17 17:11:53 +0000 |
| commit | d59bd5d7f2b0b524d360c639234d4ca9dac797e2 (patch) | |
| tree | f91773d96b4ff9069ed2c950c0a06192308b1b89 /parsing | |
| parent | 991348df60b2136db065190583d815fd1e86bdf2 (diff) | |
Bug affichage entiers négatifs
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6726 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/g_zsyntax.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/parsing/g_zsyntax.ml b/parsing/g_zsyntax.ml index cae9c76f2..9ca72e18a 100644 --- a/parsing/g_zsyntax.ml +++ b/parsing/g_zsyntax.ml @@ -328,7 +328,7 @@ let pat_z_of_int dloc n name = let bigint_of_z = function | RApp (_, RRef (_,b),[a]) when b = glob_POS -> bignat_of_pos a - | RApp (_, RRef (_,b),[a]) when b = glob_NEG -> bignat_of_pos a + | RApp (_, RRef (_,b),[a]) when b = glob_NEG -> Bigint.neg (bignat_of_pos a) | RRef (_, a) when a = glob_ZERO -> Bigint.zero | _ -> raise Non_closed_number |