diff options
| author | Kathy Gray | 2014-12-11 16:26:33 +0000 |
|---|---|---|
| committer | Kathy Gray | 2014-12-11 16:26:33 +0000 |
| commit | 4e1f3c7012ad9bae2771b88eaca3fa6791582b55 (patch) | |
| tree | 187266fb47fc42b38bd77bafd7a62c95a3ea7004 /src | |
| parent | d03935043508b8c661e125fc64f64abc0dce59c0 (diff) | |
Change compare of two big ints to compare_big_int
Diffstat (limited to 'src')
| -rw-r--r-- | src/type_internal.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/type_internal.ml b/src/type_internal.ml index f06b5875..f592df02 100644 --- a/src/type_internal.ml +++ b/src/type_internal.ml @@ -301,7 +301,7 @@ let rec compare_nexps n1 n2 = | Npow(n1,_),Npow(n2,_)-> compare_nexps n1 n2 | Npow _ , _ -> -1 | _ , Npow _ -> 1 - | N2n(_,Some i1), N2n(_,Some i2) -> compare i1 i2 + | N2n(_,Some i1), N2n(_,Some i2) -> compare_big_int i1 i2 | N2n(n1,_), N2n(n2,_) -> compare_nexps n1 n2 | N2n _ , _ -> -1 | _ , N2n _ -> 1 |