diff options
| author | Gabriel Kerneis | 2013-11-11 10:25:37 +0000 |
|---|---|---|
| committer | Gabriel Kerneis | 2013-11-11 10:25:37 +0000 |
| commit | 4e005a7065f88fb2ba4888c51dc8c0508d867e3f (patch) | |
| tree | 97ff3f0af8ee6df1c7b18ad842e766e7678d8c17 /src/lem_interp/interp_lib.lem | |
| parent | b644c12a4b4e80120772b7379fbadf211825fc31 (diff) | |
| parent | 2c7bf65b9c256a0d9bc3e4a5dfdeb3c208da2d61 (diff) | |
Merge branch 'new-lem-lib'
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 ;; |