summaryrefslogtreecommitdiff
path: root/src/mono_util.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2008-09-07 10:02:27 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2008-09-07 10:02:27 -0400
commit700a48cc6e78f75166b6e322207a29981782c4e3 (patch)
treeb457a00c7d51e21cfedb1ca9f1b2993d6771f74a /src/mono_util.sml
parent1777fbbddce252990fc5055e4e5462123938483c (diff)
'error' function
Diffstat (limited to 'src/mono_util.sml')
-rw-r--r--src/mono_util.sml7
1 files changed, 7 insertions, 0 deletions
diff --git a/src/mono_util.sml b/src/mono_util.sml
index 2b257641..f3604cf3 100644
--- a/src/mono_util.sml
+++ b/src/mono_util.sml
@@ -197,6 +197,13 @@ fun mapfoldB {typ = fc, exp = fe, bind} =
fn result' =>
(ECase (e', pes', {disc = disc', result = result'}), loc)))))
+ | EError (e, t) =>
+ S.bind2 (mfe ctx e,
+ fn e' =>
+ S.map2 (mft t,
+ fn t' =>
+ (EError (e', t'), loc)))
+
| EStrcat (e1, e2) =>
S.bind2 (mfe ctx e1,
fn e1' =>