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/rpcify.sml | |
| parent | 31da370dd5fae72ddf756aa5ef54241b099fd617 (diff) | |
RPC uses VM support for call/cc
Diffstat (limited to 'src/rpcify.sml')
| -rw-r--r-- | src/rpcify.sml | 6 |
1 files changed, 1 insertions, 5 deletions
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 |