diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-10-04 15:54:03 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-10-04 15:54:03 -0400 |
| commit | 820db2a3a1c185ea91d8a8f14a30a52489595e3f (patch) | |
| tree | 34129241fe804b98db1256b4d9ef9ba2ed1458ef /src/compiler.sml | |
| parent | 2eca16323e58b01a70ea734e2825765ebe239dc0 (diff) | |
Small clean-ups in crud; Compiler.check
Diffstat (limited to 'src/compiler.sml')
| -rw-r--r-- | src/compiler.sml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/compiler.sml b/src/compiler.sml index 569980f4..3d2ce354 100644 --- a/src/compiler.sml +++ b/src/compiler.sml @@ -93,6 +93,9 @@ fun op o (tr2 : ('b, 'c) transform, tr1 : ('a, 'b) transform) = { 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) |