summaryrefslogtreecommitdiff
path: root/src/termination.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2008-09-14 15:10:04 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2008-09-14 15:10:04 -0400
commit8cc7053b00237cd468290cb5f2042898e7a80329 (patch)
tree0138b56c392844cd8033fa03e81715b8b1ca4f8a /src/termination.sml
parentc81c24b4feb3fae3c13861f1bcaafab697a6bb7e (diff)
Crud supports INSERT
Diffstat (limited to 'src/termination.sml')
-rw-r--r--src/termination.sml7
1 files changed, 7 insertions, 0 deletions
diff --git a/src/termination.sml b/src/termination.sml
index 65c770df..e2337e54 100644
--- a/src/termination.sml
+++ b/src/termination.sml
@@ -264,6 +264,13 @@ fun declOk' env (d, loc) =
in
(Rabble, calls)
end
+ | EWith (e1, _, e2, _) =>
+ let
+ val (_, calls) = exp (penv, calls) e1
+ val (_, calls) = exp (penv, calls) e2
+ in
+ (Rabble, calls)
+ end
| EFold _ => (Rabble, calls)
| ECase (e, pes, _) =>