diff options
author | Adam Chlipala <adamc@hcoop.net> | 2009-02-15 09:27:36 -0500 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2009-02-15 09:27:36 -0500 |
commit | e27335a18e8f4b1cca2749e8d41863b3cbef9b62 (patch) | |
tree | ce010b2988315e7b327f46f1c2b0ee9fef759f4f /src/cjr_print.sml | |
parent | f7db36644bdbde7b0ed48daffeb760bd5418bd2e (diff) |
Export RPC functions and push RPC calls through to Mono
Diffstat (limited to 'src/cjr_print.sml')
-rw-r--r-- | src/cjr_print.sml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/cjr_print.sml b/src/cjr_print.sml index f8b1f23b..8f5c8551 100644 --- a/src/cjr_print.sml +++ b/src/cjr_print.sml @@ -1849,6 +1849,7 @@ fun p_file env (ds, ps) = 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 @@ fun p_file env (ds, ps) = 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, _) => |