Mercurial > urweb

diff src/compiler.sml @ 346:a94a79820d49

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Small clean-ups in crud; Compiler.check
author Adam Chlipala <adamc@hcoop.net>
date Sat, 04 Oct 2008 15:54:03 -0400
parents e457d8972ff1
children 78358e5df273
line wrap: on
line diff
--- a/src/compiler.sml	Sat Oct 04 15:50:28 2008 -0400
+++ b/src/compiler.sml	Sat Oct 04 15:54:03 2008 -0400
@@ -93,6 +93,9 @@
               end
 }
 
+fun check (tr : ('src, 'dst) transform) x = (ErrorMsg.resetErrors ();
+                                             ignore (#func tr x))
+
 fun run (tr : ('src, 'dst) transform) x = (ErrorMsg.resetErrors ();
                                            #func tr x)