Interp: oops

5567265b · MARCHE Claude · 5374257f · 5567265b
Commit 5567265b authored Sep 23, 2013 by MARCHE Claude
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

src/whyml/mlw_interp.ml src/whyml/mlw_interp.ml +1 -1

No files found.
--- a/src/whyml/mlw_interp.ml
+++ b/src/whyml/mlw_interp.ml
@@ -831,7 +831,7 @@ let rec eval_expr env (s:state) (e : expr) : result * state =
  | Eassert _ ->
    (* TODO check the validity ! *)
    Normal t_void, s
-  | Eghost e (* -> (* eval_expr env s e *) Normal t_void, s  *)
+  | Eghost _ (* -> (* eval_expr env s e *) Normal t_void, s  *)
  | Erec _
  | Eany _
  | Eabstr _