aboutsummaryrefslogtreecommitdiff
path: root/evaluator.ml
diff options
context:
space:
mode:
authorSébastien Dailly <sebastien@chimrod.com>2017-11-22 10:57:11 +0100
committerSébastien Dailly <sebastien@chimrod.com>2017-11-22 10:57:11 +0100
commit18f6319703d7bec460754fdceee5f0f2cfbc2702 (patch)
tree4c797600b62ccf3afc9e6c591703167c394bd033 /evaluator.ml
parent79f1dddf8958a65ce57ac4601a36289019b5f384 (diff)
Catalog representation
Diffstat (limited to 'evaluator.ml')
-rwxr-xr-xevaluator.ml4
1 files changed, 3 insertions, 1 deletions
diff --git a/evaluator.ml b/evaluator.ml
index 12d60b8..2809507 100755
--- a/evaluator.ml
+++ b/evaluator.ml
@@ -82,7 +82,9 @@ module C = Catalog.Make(Data)
type t = C.t
-let catalog = C.empty
+let catalog = ref C.empty
+
+let get_catalog () = !catalog
let repr = C.repr