diff options
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 |