diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-09-07 10:02:27 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-09-07 10:02:27 -0400 |
| commit | 700a48cc6e78f75166b6e322207a29981782c4e3 (patch) | |
| tree | b457a00c7d51e21cfedb1ca9f1b2993d6771f74a /src/cjr.sml | |
| parent | 1777fbbddce252990fc5055e4e5462123938483c (diff) | |
'error' function
Diffstat (limited to 'src/cjr.sml')
| -rw-r--r-- | src/cjr.sml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/cjr.sml b/src/cjr.sml index 0f261de6..398f94c6 100644 --- a/src/cjr.sml +++ b/src/cjr.sml @@ -66,6 +66,8 @@ datatype exp' = | ECase of exp * (pat * exp) list * { disc : typ, result : typ } + | EError of exp * typ + | EWrite of exp | ESeq of exp * exp | ELet of string * typ * exp * exp |