fix regressed error message for missing cases

src/Lib/CompileExp.newt

@@ -98,9 +98,6 @@ compileTerm tm@(App _ _ _) = case funArgs tm of
   (t@(Ref fc nm), args) => do
         args' <- traverse compileTerm args
         arity <- arityForName fc nm
-        top <- getTop
-        -- let (Just (MkEntry _ _ type _)) = lookup nm top
-        --   | Nothing => error fc "Undefined name \{show nm}"
         apply (CRef (show nm)) args' Lin arity
   (t, args) => do
         debug $ \ _ => "apply other \{render 90 $ pprint Nil t}"