add local bindings to context

- without this, inside the body of `let x = e in …`, the typechecker
  would forget that `x = e`
- now bound variables can reduce, if they have a definition, so RedexTest
  needs to take the context too

exe/Main.idr

@@ -164,7 +164,7 @@ private
 liftFromParser : Eff FromParserIO a -> Eff CompileStop a
 liftFromParser act =
   runEff act $ with Union.(::)
-    [handleExcept (\err => throw $ FromParserError err),
+    [handleExcept $ \err => throw $ FromParserError err,
      handleStateIORef !(asksAt STATE defs),
      handleStateIORef !(asksAt STATE ns),
      handleStateIORef !(asksAt STATE suf),
@@ -174,8 +174,7 @@ private
 liftErase : Q.Definitions -> Eff Erase a -> Eff CompileStop a
 liftErase defs act =
   runEff act
-    [\case Err e => throw $ EraseError e,
-     \case Ask   => pure defs,
+    [handleExcept $ \err => throw $ EraseError err,
      handleStateIORef !(asksAt STATE suf)]
 
 private
@@ -207,7 +206,7 @@ processFile file = withEarlyStop $ do
     traverse (uncurry Q.prettyDef) defList
   let defs = SortedMap.fromList defList
   erased <- liftErase defs $
-    traverse (\(x, d) => (x,) <$> eraseDef x d) defList
+    traverse (\(x, d) => (x,) <$> eraseDef defs x d) defList
   outputDocStopIf Erase $
     traverse (uncurry U.prettyDef) erased
   (scheme, mains) <- liftScheme $ map catMaybes $