diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-10-25 14:07:10 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-10-25 14:07:10 -0400 |
| commit | 5a88b41a6655f601c989ae94ce1fc8bb391ca630 (patch) | |
| tree | 95685ca6f24d0e3511588ae55bbdd8a121f97994 /src/core_untangle.sml | |
| parent | 31da370dd5fae72ddf756aa5ef54241b099fd617 (diff) | |
RPC uses VM support for call/cc
Diffstat (limited to 'src/core_untangle.sml')
| -rw-r--r-- | src/core_untangle.sml | 3 |
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 |