correct position?
This commit is contained in:
parent
b92523f677
commit
4b32388ae7
1 changed files with 1 additions and 3 deletions
|
@ -460,9 +460,7 @@ and case_value expr branches environment memory =
|
||||||
in
|
in
|
||||||
(* On fait le match avec ce qu'on a comme info *)
|
(* On fait le match avec ce qu'on a comme info *)
|
||||||
match branches' with
|
match branches' with
|
||||||
| [] ->
|
| [] -> error [ expr.position ] "erreur"
|
||||||
(* TODO *)
|
|
||||||
error [] "error"
|
|
||||||
| _ as env -> List.hd env
|
| _ as env -> List.hd env
|
||||||
|
|
||||||
and for_value id expr1 expr2 expr3 environment memory =
|
and for_value id expr1 expr2 expr3 environment memory =
|
||||||
|
|
Reference in a new issue