diff options
| author | coqbot-app[bot] | 2020-11-17 21:15:08 +0000 |
|---|---|---|
| committer | GitHub | 2020-11-17 21:15:08 +0000 |
| commit | 396de348a4daa2ae752bed8c75a9ecacb4dcd579 (patch) | |
| tree | 0edb5ebb6497b541bccc7d00de32e72204347dce /interp | |
| parent | 7c79a0da543536da48cd49cb9b09682fb9a6efe8 (diff) | |
| parent | 81a3f81c046697ff011c93929c75c29f4cd39f2f (diff) | |
Merge PR #13390: Intern application arguments in left-to-right order
Reviewed-by: herbelin
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/constrintern.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml index 0eb915561e..b86ad7175a 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -2409,8 +2409,9 @@ let internalize globalenv env pattern_mode (_, ntnvars as lvar) c = and intern_args env subscopes = function | [] -> [] | a::args -> - let (enva,subscopes) = apply_scope_env env subscopes in - (intern_no_implicit enva a) :: (intern_args env subscopes args) + let (enva,subscopes) = apply_scope_env env subscopes in + let a = intern_no_implicit enva a in + a :: (intern_args env subscopes args) in intern env c |