diff options
Diffstat (limited to 'lib/evaluators')
| -rw-r--r-- | lib/evaluators/FOL.ml | 2 | ||||
| -rw-r--r-- | lib/evaluators/Lambda.ml | 3 |
2 files changed, 5 insertions, 0 deletions
diff --git a/lib/evaluators/FOL.ml b/lib/evaluators/FOL.ml index b290e0a..eba57a1 100644 --- a/lib/evaluators/FOL.ml +++ b/lib/evaluators/FOL.ml @@ -31,6 +31,8 @@ class evaluator = object (self) inherit Kernel.Lifecycle.null inherit Kernel.Identity.of_id + method to_string = "fol-evaluator" + method invoke = execute method protocols : Protocols.Handle.protocol list = [Program.make self] end diff --git a/lib/evaluators/Lambda.ml b/lib/evaluators/Lambda.ml index a75fc10..53b0301 100644 --- a/lib/evaluators/Lambda.ml +++ b/lib/evaluators/Lambda.ml @@ -98,6 +98,9 @@ let execute term = class evaluator = object (self) inherit Kernel.Lifecycle.null inherit Kernel.Identity.of_id + + method to_string = "lambda-evaluator" + method invoke program = execute program method protocols : Protocols.Handle.protocol list = [Program.make self] end |