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 | |
| parent | 7c79a0da543536da48cd49cb9b09682fb9a6efe8 (diff) | |
| parent | 81a3f81c046697ff011c93929c75c29f4cd39f2f (diff) | |
Merge PR #13390: Intern application arguments in left-to-right order
Reviewed-by: herbelin
| -rw-r--r-- | interp/constrintern.ml | 5 | ||||
| -rw-r--r-- | test-suite/output/UnboundRef.out | 3 | ||||
| -rw-r--r-- | test-suite/output/UnboundRef.v | 2 |
3 files changed, 8 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 diff --git a/test-suite/output/UnboundRef.out b/test-suite/output/UnboundRef.out new file mode 100644 index 0000000000..a574e97e0f --- /dev/null +++ b/test-suite/output/UnboundRef.out @@ -0,0 +1,3 @@ +File "stdin", line 1, characters 11-12: +Error: The reference a was not found in the current environment. + diff --git a/test-suite/output/UnboundRef.v b/test-suite/output/UnboundRef.v new file mode 100644 index 0000000000..fd08ae0c5c --- /dev/null +++ b/test-suite/output/UnboundRef.v @@ -0,0 +1,2 @@ +Check Prop a b. +(* Prop is because we need a real head for the application *) |