CatalaLang/catala
1
1
Fork 0
mirror of https://github.com/CatalaLang/catala.git synced 2024-11-09 22:16:10 +03:00
Code Issues Projects Releases Wiki Activity

Interpreter: avoid rebuilding unchanged values

Browse Source 
Closes #540 ; it was a leftover from when we were still exploring how best to
type this function.
This commit is contained in:
Louis Gesbert 2024-02-05 16:18:09 +01:00
parent d57eb023dd
commit e5fe02fd84
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/shared_ast/interpreter.ml
View File

@ -653,9 +653,7 @@ let rec evaluate_expr :
| EAppOp { op; args; _ } -> | EAppOp { op; args; _ } ->
let args = List.map (evaluate_expr ctx lang) args in let args = List.map (evaluate_expr ctx lang) args in
evaluate_operator (evaluate_expr ctx lang) op m lang args evaluate_operator (evaluate_expr ctx lang) op m lang args
| EAbs { binder; tys } -> Expr.unbox (Expr.eabs (Bindlib.box binder) tys m) | EAbs _ | ELit _ | ECustom _ | EEmptyError -> e (* these are values *)
| ELit _ as e -> Mark.add m e
(* | EAbs _ as e -> Marked.mark m e (* these are values *) *)
| EStruct { fields = es; name } -> | EStruct { fields = es; name } ->
let fields, es = List.split (StructField.Map.bindings es) in let fields, es = List.split (StructField.Map.bindings es) in
let es = List.map (evaluate_expr ctx lang) es in let es = List.map (evaluate_expr ctx lang) es in
@ -753,8 +751,6 @@ let rec evaluate_expr :
Message.raise_spanned_error (Expr.pos e') Message.raise_spanned_error (Expr.pos e')
"Expected a boolean literal for the result of this assertion (should \ "Expected a boolean literal for the result of this assertion (should \
not happen if the term was well-typed)") not happen if the term was well-typed)")
| ECustom _ -> e
| EEmptyError -> Mark.copy e EEmptyError
| EErrorOnEmpty e' -> ( | EErrorOnEmpty e' -> (
match evaluate_expr ctx lang e' with match evaluate_expr ctx lang e' with
| EEmptyError, _ -> | EEmptyError, _ ->