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 | 4d6b4140314ee47c6278d75a196fb81da3fedc26 (patch) | |
| tree | ce010b2988315e7b327f46f1c2b0ee9fef759f4f /src/cjr_print.sml | |
| parent | a89a3e41b94c294e1f08d369f2558e12b532e430 (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, _) => |