From a0d30f13c42c256a8777e43195650d4b85c3c97a Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Sun, 11 Mar 2012 21:20:09 -0400
Subject: Handle recursive RPC handlers

---
 src/rpcify.sml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/rpcify.sml')

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