reset error state before generating basis library

Errors occuring during publishing in the dispatcher can leak into the
next run. Reset the error state in basis to avoid returning an empty
basis library now that it is evaluated at each MsgConfig.

This may be the wrong solution -- not sure why errors get to hang
around after a run anyway.

diff --git a/src/main.sml b/src/main.sml
index 1816f78..475d1aa 100644 (file)
--- a/src/main.sml
+++ b/src/main.sml
@@ -56,6 +56,7 @@ fun check' G fname =
 
 fun basis () =
     let
 
 fun basis () =
     let

+       val _ = ErrorMsg.reset ()

        val dir = Posix.FileSys.opendir Config.libRoot
 
        fun loop files =
        val dir = Posix.FileSys.opendir Config.libRoot
 
        fun loop files =