@@ -128,7 +128,12 @@ ideslave orig mods
128128 loadModule filename
129129 iucheck
130130 isetPrompt (mkPrompt [filename])
131− -- report success! or failure!
131+
132+ -- Report either success or failure
133+ i <- getIState
134+ case (errLine i) of
135+ Nothing -> iResult $ "loaded " ++ filename
136+ Just x -> iFail $ "didn't load " ++ filename
132137 ideslave orig [filename]
133138 Nothing -> do iFail "did not understand")
134139 (\e -> do iFail $ show e)