Mercurial > urweb

diff src/cjr_print.sml @ 608:330a7de47914

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Export RPC functions and push RPC calls through to Mono
author Adam Chlipala <adamc@hcoop.net>
date Sun, 15 Feb 2009 09:27:36 -0500
parents 889dc9fceb3a
children 56aaa1941dad
line wrap: on
line diff
--- a/src/cjr_print.sml	Sat Feb 14 14:07:56 2009 -0500
+++ b/src/cjr_print.sml	Sun Feb 15 09:27:36 2009 -0500
@@ -1849,6 +1849,7 @@
         val fields = foldl (fn ((ek, _, _, ts), fields) =>
                                case ek of
                                    Core.Link => fields
+                                 | Core.Rpc => fields
                                  | Core.Action =>
                                    case List.nth (ts, length ts - 2) of
                                        (TRecord i, _) =>
@@ -1971,6 +1972,7 @@
                 val (ts, defInputs, inputsVar) =
                     case ek of
                         Core.Link => (List.take (ts, length ts - 1), string "", string "")
+                      | Core.Rpc => (List.take (ts, length ts - 1), string "", string "")
                       | Core.Action =>
                         case List.nth (ts, length ts - 2) of
                             (TRecord i, _) =>