summaryrefslogtreecommitdiff
path: root/src/cjr_print.sml
diff options
context:
space:
mode:
Diffstat (limited to 'src/cjr_print.sml')
-rw-r--r--src/cjr_print.sml6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/cjr_print.sml b/src/cjr_print.sml
index 30e34fad..9f63edaf 100644
--- a/src/cjr_print.sml
+++ b/src/cjr_print.sml
@@ -2184,7 +2184,7 @@ fun p_file env (ds, ps) =
end
| _ => NONE
- val fields = foldl (fn ((ek, _, _, ts, _, _), fields) =>
+ val fields = foldl (fn ((ek, _, _, ts, _, _, _), fields) =>
case ek of
Link => fields
| Rpc _ => fields
@@ -2480,7 +2480,7 @@ fun p_file env (ds, ps) =
newline]
end
- fun p_page (ek, s, n, ts, ran, side) =
+ fun p_page (ek, s, n, ts, ran, side, tellSig) =
let
val (ts, defInputs, inputsVar, fields) =
case ek of
@@ -2612,7 +2612,7 @@ fun p_file env (ds, ps) =
string ");",
newline,
string "uw_set_needs_sig(ctx, ",
- string (if couldWrite ek then
+ string (if tellSig then
"1"
else
"0"),