diff options
| author | Escherichia | 2024-04-03 17:01:27 +0200 |
|---|---|---|
| committer | Escherichia | 2024-04-03 17:01:27 +0200 |
| commit | 084480c807b58947b8487eb3a7c6a71bb388a832 (patch) | |
| tree | 3d9a4cbca66e0f02ff578a5f653d34ca67a87632 /compiler/PureUtils.ml | |
| parent | f4a89caad1459f2f72295c5baa284fe1f9b4c39f (diff) | |
added Error and EError to expressions and propagated related changes
Diffstat (limited to 'compiler/PureUtils.ml')
| -rw-r--r-- | compiler/PureUtils.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/compiler/PureUtils.ml b/compiler/PureUtils.ml index 4bc90872..87f0b5f7 100644 --- a/compiler/PureUtils.ml +++ b/compiler/PureUtils.ml @@ -228,6 +228,9 @@ let rec let_group_requires_parentheses (meta : Meta.meta) (e : texpression) : | Loop _ -> (* Should have been eliminated *) craise __FILE__ __LINE__ meta "Unreachable" + | EError (meta, msg) -> + craise_opt_meta __FILE__ __LINE__ meta + msg (* TODO : check if true should'nt be returned instead ? *) let texpression_requires_parentheses meta e = match !Config.backend with |