diff options
| author |  Jason Gross <jgross@mit.edu> | 2017-03-22 17:27:30 -0400 |
|---|---|---|
| committer | Jason Gross <jgross@mit.edu> | 2017-03-22 17:27:30 -0400 |
| commit | 834a48b306acc57eabe4cf3667cc0693ccb7983a (patch) | |
| tree | a0eeed04270765e58f736da1f17ee4a7013eb014 /src/Reflection | |
| parent | fdff0bff89eae36c67ce112f63eec318c6054691 (diff) | |
Fix binder counting in MapCastByDB
We were previously counting the names we'd need before linearizing.
Oops.
Diffstat (limited to 'src/Reflection')
| -rw-r--r-- | src/Reflection/MapCastByDeBruijn.v | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Reflection/MapCastByDeBruijn.v b/src/Reflection/MapCastByDeBruijn.v index 411bfdae2..61af3a1ca 100644 --- a/src/Reflection/MapCastByDeBruijn.v +++ b/src/Reflection/MapCastByDeBruijn.v @@ -33,7 +33,8 @@ Section language. empty e' input_bounds) - (compile (Linearize e _) (DefaultNamesFor e)) + (let e := Linearize e in + compile (e _) (DefaultNamesFor e)) with | Some (Some (existT output_bounds e')) => Some (existT _ output_bounds (InterpToPHOAS (Context:=Context) failb e')) |