diff options
Diffstat (limited to 'src/lem_interp/interp_lib.lem')
| -rw-r--r-- | src/lem_interp/interp_lib.lem | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/src/lem_interp/interp_lib.lem b/src/lem_interp/interp_lib.lem index 19f78df2..192cd641 100644 --- a/src/lem_interp/interp_lib.lem +++ b/src/lem_interp/interp_lib.lem @@ -1,3 +1,12 @@ -open Interp ;; +open import Interp ;; +import Maybe_extra -let eval_external name v = v ;; +let add v = v ;; + + +let function_map = [ + ("add", add); + ("add_infix", add); +] ;; + +let eval_external name v = (Maybe_extra.fromJust (List.lookup name function_map)) v ;; |