+ anon <- isAnonExpr <$> hoist (buildAST ast)
+ def <- mostRecentDef
+
+ ast <- moduleSoFar "main"
+ ctx <- lift $ asks jitEnvContext
+ env <- lift ask
+ liftIO $ withModuleFromAST ctx ast $ \mdl -> do
+ Text.hPutStrLn stderr $ ppll def
+ let spec = defaultCuratedPassSetSpec { optLevel = Just 3 }
+ -- this returns true if the module was modified
+ withPassManager spec $ flip runPassManager mdl
+ when anon (jit env mdl >>= hPrint stderr)
+
+ when anon (removeDef def)