diff options
| author | Maxime Dénès | 2019-09-04 15:24:32 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2019-09-04 15:24:32 +0200 |
| commit | cb8a23e805715f16173687d1e892711a9bb135ba (patch) | |
| tree | 3c625cf9fa8ee6722d0467e06d805dac45608809 /plugins/extraction/extraction.ml | |
| parent | 6a6a2575c10d05cd0151a83c133825d43bd3cb28 (diff) | |
| parent | 6a90e74a59d7848ef1b026533ee600511a1c41ff (diff) | |
Merge PR #10577: Fix #7348: extraction of dependent record projections
Reviewed-by: Zimmi48
Reviewed-by: maximedenes
Diffstat (limited to 'plugins/extraction/extraction.ml')
| -rw-r--r-- | plugins/extraction/extraction.ml | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/plugins/extraction/extraction.ml b/plugins/extraction/extraction.ml index 78c6255c1e..cca212f332 100644 --- a/plugins/extraction/extraction.ml +++ b/plugins/extraction/extraction.ml @@ -754,18 +754,6 @@ and extract_cst_app env sg mle mlt kn args = let la = List.length args in (* The ml arguments, already expunged from known logical ones *) let mla = make_mlargs env sg mle s args metas in - let mla = - if magic1 || lang () != Ocaml then mla - else - try - (* for better optimisations later, we discard dependent args - of projections and replace them by fake args that will be - removed during final pretty-print. *) - let l,l' = List.chop (projection_arity (GlobRef.ConstRef kn)) mla in - if not (List.is_empty l') then (List.map (fun _ -> MLexn "Proj Args") l) @ l' - else mla - with e when CErrors.noncritical e -> mla - in (* For strict languages, purely logical signatures lead to a dummy lam (except when [Kill Ktype] everywhere). So a [MLdummy] is left accordingly. *) |