CatalaLang/catala
1
1
Fork 0
mirror of https://github.com/CatalaLang/catala.git synced 2024-11-08 07:51:43 +03:00
Code Issues Projects Releases Wiki Activity

Fix handling of embedded context through modules

Browse Source 
Exceptions raised by the interpreter from within the native modules were not
handled correctly.
This commit is contained in:
Louis Gesbert 2023-12-07 15:09:18 +01:00
parent 509ce9788a
commit a988ad473b
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/shared_ast/interpreter.ml
View File

@ -537,7 +537,8 @@ and val_to_runtime :
| [] ->
let args = List.rev acc in
val_to_runtime eval_expr ctx tret
(eval_expr ctx (EApp { f = v; args }, m))
(try eval_expr ctx (EApp { f = v; args }, m)
with CatalaException EmptyError -> raise Runtime.EmptyError)
| targ :: targs ->
Obj.repr (fun x ->
curry (runtime_to_val eval_expr ctx m targ x :: acc) targs)