Commit 5567265b authored by MARCHE Claude's avatar MARCHE Claude

Interp: oops

parent 5374257f
......@@ -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 _
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment