diff options
| author | Estevan Castilho <tevo@riajuu.net> | 2026-09-24 02:16:27 +0000 |
|---|---|---|
| committer | Estevan Castilho <tevo@riajuu.net> | 2026-09-24 02:16:27 +0000 |
| commit | 2d7c5b7c6696f39028ab07064ff75548d71ee5cf (patch) | |
| tree | 42bc368247a89f528dfc0cf4c96fefe4a620247b /lib/evaluators | |
| parent | 6b4f90c6c0b3a2265140f045512004090e2f28e6 (diff) | |
| download | RNT-2d7c5b7c6696f39028ab07064ff75548d71ee5cf.tar.gz RNT-2d7c5b7c6696f39028ab07064ff75548d71ee5cf.zip | |
Make objects printable
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 |