From 5a88b41a6655f601c989ae94ce1fc8bb391ca630 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sun, 25 Oct 2009 14:07:10 -0400
Subject: RPC uses VM support for call/cc

---
 src/core_untangle.sml | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'src/core_untangle.sml')

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
 
-- 
cgit v1.2.3