From 5e7777d45db50241a334cb52c0aafc29b2ee6618 Mon Sep 17 00:00:00 2001 From: Clinton Ebadi Date: Sun, 5 Oct 2014 23:44:32 -0400 Subject: [PATCH] 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. --- src/main.sml | 1 + 1 file changed, 1 insertion(+) diff --git a/src/main.sml b/src/main.sml index 1816f78..475d1aa 100644 --- a/src/main.sml +++ b/src/main.sml @@ -56,6 +56,7 @@ fun check' G fname = fun basis () = let + val _ = ErrorMsg.reset () val dir = Posix.FileSys.opendir Config.libRoot fun loop files = -- 2.20.1