summaryrefslogtreecommitdiff
path: root/src/core_untangle.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2009-10-25 14:07:10 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2009-10-25 14:07:10 -0400
commitad7be9f6f9b4bfd6d6a4653b5eed4783a6ddb96e (patch)
tree95685ca6f24d0e3511588ae55bbdd8a121f97994 /src/core_untangle.sml
parentda76d63970055a475aafb8971e773d074878e21b (diff)
RPC uses VM support for call/cc
Diffstat (limited to 'src/core_untangle.sml')
-rw-r--r--src/core_untangle.sml3
1 files changed, 1 insertions, 2 deletions
diff --git a/src/core_untangle.sml b/src/core_untangle.sml
index f00bd95b..d734cc6f 100644
--- a/src/core_untangle.sml
+++ b/src/core_untangle.sml
@@ -48,8 +48,7 @@ fun exp thisGroup (e, s) =
case e of
ENamed n => try n
| EClosure (n, _) => try n
- | EServerCall (n, _, _, _, _) => try n
- | ETailCall (n, _, _, _, _) => try n
+ | EServerCall (n, _, _) => try n
| _ => s
end