diff options
| author | Pierre-Marie Pédrot | 2018-07-20 12:03:27 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-07-20 12:09:34 +0200 |
| commit | 8e88da289d5c96506a9540890ccbd7c22570049c (patch) | |
| tree | 62b33fbac36672ea0f82fefc6871b7f54cbd2318 /checker/validate.ml | |
| parent | d8cd9ba6d56d32eb8aa383bca9198a18517e82d3 (diff) | |
Fix #8043: Unsafe assignment in checker.
We use a dedicated mutable constructor to perform a Landin knot.
Diffstat (limited to 'checker/validate.ml')
| -rw-r--r-- | checker/validate.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/checker/validate.ml b/checker/validate.ml index f831875dd4..c214409a2c 100644 --- a/checker/validate.ml +++ b/checker/validate.ml @@ -85,6 +85,7 @@ let rec val_gen v ctx o = match v with | Fail s -> fail ctx o ("unexpected object " ^ s) | Annot (s,v) -> val_gen v (ctx/CtxAnnot s) o | Dyn -> val_dyn ctx o + | Proxy { contents = v } -> val_gen v ctx o (* Check that an object is a tuple (or a record). vs is an array of value representation for each field. Its size corresponds to the |