From 7dcc04f288c27a29e18ad2c0b55d07b218655deb 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')

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