From 834a48b306acc57eabe4cf3667cc0693ccb7983a Mon Sep 17 00:00:00 2001 From: Jason Gross Date: Wed, 22 Mar 2017 17:27:30 -0400 Subject: Fix binder counting in MapCastByDB We were previously counting the names we'd need before linearizing. Oops. --- src/Reflection/MapCastByDeBruijn.v | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/Reflection') 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')) -- cgit v1.2.3