De-infix operator before looking it up in the interpreter

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)