Paris7/compilation
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Activity

Some failwith

Browse source
This commit is contained in:
Mylloon 2023-12-18 14:13:49 +01:00
parent a6afabb538
commit 86e8cead3a
Signed by: Anri
GPG key ID: A82D63DFF8D1317F
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
flap/src/fopix/hobixToFopix.ml
View file

@ -313,6 +313,7 @@ let translate (p : S.t) env =
add_to_cloture env fname (T.Variable (T.Id "environment")) free_vars add_to_cloture env fname (T.Variable (T.Id "environment")) free_vars
in in
T.Define (T.Id "environment", new_clot, blocks), env T.Define (T.Id "environment", new_clot, blocks), env
| Some _ -> failwith "Students! This is your job (creation_cloture)!"
(* Fonction qui initialise une cloture de taille espace (* Fonction qui initialise une cloture de taille espace
+ la taille de la liste de variable (le nombre de variable libre) *) + la taille de la liste de variable (le nombre de variable libre) *)
and new_cloture espace list_variable = and new_cloture espace list_variable =