@@ -1635,7 +1635,6 @@ runTactical ist fc env tm = do tm' <- eval tm
16351635 return ()
16361636 where
16371637 eval tm = do ctxt <- get_context
1638− env <- get_env
16391638 return $ normaliseAll ctxt env (finalise tm)
16401639
16411640 returnUnit = return $ P (DCon 0 0 False) unitCon (P (TCon 0 0) unitTy Erased)