summaryrefslogtreecommitdiff
path: root/src/prepare.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/prepare.sml
parent1777fbbddce252990fc5055e4e5462123938483c (diff)
'error' function
Diffstat (limited to 'src/prepare.sml')
-rw-r--r--src/prepare.sml7
1 files changed, 7 insertions, 0 deletions
diff --git a/src/prepare.sml b/src/prepare.sml
index 67f6e0b6..64ccb465 100644
--- a/src/prepare.sml
+++ b/src/prepare.sml
@@ -106,6 +106,13 @@ fun prepExp (e as (_, loc), sns) =
((ECase (e, pes, ts), loc), sns)
end
+ | EError (e, t) =>
+ let
+ val (e, sns) = prepExp (e, sns)
+ in
+ ((EError (e, t), loc), sns)
+ end
+
| EWrite e =>
let
val (e, sns) = prepExp (e, sns)