diff options
author | Son Ho | 2022-12-15 20:41:41 +0100 |
---|---|---|
committer | Son HO | 2023-02-03 11:21:46 +0100 |
commit | c9bc12605e0760a2f452af47badb42a0069e60c6 (patch) | |
tree | 71317a8b63c59c9f02dd9f874bffb7ecc879fad8 /compiler/PureUtils.ml | |
parent | 20332f3faa5e1205602c946f1c7abb9b6660e6f0 (diff) |
Make good progress on updating SymbolicToPure
Diffstat (limited to '')
-rw-r--r-- | compiler/PureUtils.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/PureUtils.ml b/compiler/PureUtils.ml index 0e245f35..b5c9b686 100644 --- a/compiler/PureUtils.ml +++ b/compiler/PureUtils.ml @@ -114,7 +114,7 @@ let fun_sig_substitute (tsubst : TypeVarId.id -> ty) (sg : fun_sig) : We only look for outer monadic let-bindings. This is used when printing the branches of [if ... then ... else ...]. - Rem.: this function will *fail* if there are {!Loop} nodes (you should call + Rem.: this function will *fail* if there are {!constructor:Aeneas.Pure.expression.Loop} nodes (you should call it on an expression where those nodes have been eliminated). *) let rec let_group_requires_parentheses (e : texpression) : bool = |