diff options
Diffstat (limited to 'src/lem_interp')
| -rw-r--r-- | src/lem_interp/interp.lem | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/lem_interp/interp.lem b/src/lem_interp/interp.lem index aeb846d9..08943dc8 100644 --- a/src/lem_interp/interp.lem +++ b/src/lem_interp/interp.lem @@ -674,6 +674,10 @@ and interp_main t_level l_env l_mem exp = | _ -> (Error "Application with expression other than identifier",l_mem,l_env) end | E_app_infix l op r -> + let op = match op with + | Id x -> DeIid x + | DeIid _ -> op + end in resolve_outcome (interp_main t_level l_env l_mem l) (fun lv lm le -> resolve_outcome (interp_main t_level l_env lm r) |