From 5a88b41a6655f601c989ae94ce1fc8bb391ca630 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Sun, 25 Oct 2009 14:07:10 -0400 Subject: RPC uses VM support for call/cc --- src/rpcify.sml | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) (limited to 'src/rpcify.sml') diff --git a/src/rpcify.sml b/src/rpcify.sml index 0e5a1076..3569e2bc 100644 --- a/src/rpcify.sml +++ b/src/rpcify.sml @@ -112,11 +112,7 @@ fun frob file = val st = {exported = exported, export_decls = export_decls} - val k = (ECApp ((EFfi ("Basis", "return"), loc), - (CFfi ("Basis", "transaction"), loc)), loc) - val k = (ECApp (k, ran), loc) - val k = (EApp (k, (EFfi ("Basis", "transaction_monad"), loc)), loc) - val e' = EServerCall (n, args, k, ran, ran) + val e' = EServerCall (n, args, ran) in (e', st) end -- cgit v1.2.3