From 700a48cc6e78f75166b6e322207a29981782c4e3 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sun, 7 Sep 2008 10:02:27 -0400
Subject: 'error' function

---
 src/mono.sml | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/mono.sml')

diff --git a/src/mono.sml b/src/mono.sml
index cbe935c0..4ac21330 100644
--- a/src/mono.sml
+++ b/src/mono.sml
@@ -69,6 +69,8 @@ datatype exp' =
 
        | EStrcat of exp * exp
 
+       | EError of exp * typ
+
        | EWrite of exp
        | ESeq of exp * exp
        | ELet of string * typ * exp * exp
-- 
cgit v1.2.3