diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-12-17 19:12:11 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-12-17 19:38:36 +0100 |
| commit | 6b2ec938010c50dae3ec6c87ff8ea7f2a4012b92 (patch) | |
| tree | bf02ac37d72cdfe17c765796632464ee42a8de58 /checker/univ.ml | |
| parent | e4ac6f91e8d95a168cdaeaec72cf761b7b6da4b7 (diff) | |
Ensuring the good invariants of hashcons table generation in the API.
Diffstat (limited to 'checker/univ.ml')
| -rw-r--r-- | checker/univ.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/checker/univ.ml b/checker/univ.ml index a895021f0..323a373ec 100644 --- a/checker/univ.ml +++ b/checker/univ.ml @@ -432,7 +432,7 @@ struct include Hashcons.Make(ExprHash) let make = - Hashcons.simple_hcons generate Level.hcons + Hashcons.simple_hcons generate hcons Level.hcons let hash = ExprHash.hash let uid = hash let equal x y = x == y || @@ -1242,7 +1242,7 @@ struct module HInstance = Hashcons.Make(HInstancestruct) - let hcons = Hashcons.simple_hcons HInstance.generate Level.hcons + let hcons = Hashcons.simple_hcons HInstance.generate HInstance.hcons Level.hcons let empty = hcons [||] |