From 7dcc04f288c27a29e18ad2c0b55d07b218655deb Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Sun, 11 Mar 2012 21:20:09 -0400 Subject: Handle recursive RPC handlers --- src/rpcify.sml | 2 +- tests/selfRpc.ur | 7 +++++++ 2 files changed, 8 insertions(+), 1 deletion(-) create mode 100644 tests/selfRpc.ur diff --git a/src/rpcify.sml b/src/rpcify.sml index 8d309a82..f8aee6c7 100644 --- a/src/rpcify.sml +++ b/src/rpcify.sml @@ -142,7 +142,7 @@ fun frob file = decl = fn x => x} st d in - (#export_decls st @ [d], + (d :: #export_decls st, {exported = #exported st, export_decls = []}) end diff --git a/tests/selfRpc.ur b/tests/selfRpc.ur new file mode 100644 index 00000000..a851008d --- /dev/null +++ b/tests/selfRpc.ur @@ -0,0 +1,7 @@ +fun test () = + k <- source ; + return