X-Git-Url: https://scm.cri.mines-paristech.fr/git/Faustine.git/blobdiff_plain/8c48d01c4b78dba6159c13438b06cb7e07a1f338..d204fe8a60e0556b0294e17c5c6948cb6cee7d91:/interpretor/value.ml?ds=sidebyside diff --git a/interpretor/value.ml b/interpretor/value.ml index 3c97aa0..ef05f43 100644 --- a/interpretor/value.ml +++ b/interpretor/value.ml @@ -52,6 +52,8 @@ class value : basic -> value_type = method _mod = self#prim2 basic_mod method larger = self#prim2 basic_larger method smaller = self#prim2 basic_smaller + method max = self#prim2 basic_max + method min = self#prim2 basic_min end;;