infinite loop....

This commit is contained in:
Mylloon 2023-12-15 19:17:29 +01:00
parent ebd9544870
commit 814c04c1d0
Signed by: Anri
GPG key ID: A82D63DFF8D1317F

View file

@ -235,11 +235,12 @@ let translate (p : S.t) env =
let bfs, b = expression env b in let bfs, b = expression env b in
let cfs, c = expression env c in let cfs, c = expression env c in
afs @ bfs @ cfs, T.IfThenElse (a, b, c) afs @ bfs @ cfs, T.IfThenElse (a, b, c)
| S.Fun (x, e) -> | S.Fun (x, e) as f ->
let fname = make_fresh_function_identifier () in let fname = make_fresh_function_identifier () in
let x = List.map identifier x in let x = List.map identifier x in
let efs, e = expression env e in let efs, e = expression env e in
T.DefineFunction (fname, x, e) :: efs, e let ffs, f = expression env f in
(T.DefineFunction (fname, x, e) :: efs) @ ffs, f
| S.AllocateBlock a -> | S.AllocateBlock a ->
let afs, a = expression env a in let afs, a = expression env a in
afs, allocate_block a afs, allocate_block a