diff options
| author |  Benjamin Barenblat <bbaren@mit.edu> | 2020-05-31 18:29:03 -0400 |
|---|---|---|
| committer | Benjamin Barenblat <bbaren@mit.edu> | 2020-05-31 18:29:03 -0400 |
| commit | 6cc104634ef64be3be88c1fccbe98208d95d8a1a (patch) | |
| tree | 9001e5333e808808125978a52669a8bff3639438 /src/elab_print.sml | |
| parent | 82fde07cef0e41b700b9a30137562eb05f2f2c6d (diff) | |
| parent | c2f1e1096f602b1cbd4531352f3e1ea6d656a186 (diff) | |
Merge branch 'dfsg_clean'
Diffstat (limited to 'src/elab_print.sml')
| -rw-r--r-- | src/elab_print.sml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/elab_print.sml b/src/elab_print.sml index 8a6a651a..637164f4 100644 --- a/src/elab_print.sml +++ b/src/elab_print.sml @@ -546,7 +546,10 @@ fun p_datatype env (x, n, xs, cons) = val env = E.pushCNamedAs env x n k NONE val env = foldl (fn (x, env) => E.pushCRel env x k) env xs in - box [string x, + box [(if !debug then + string (x ^ "_" ^ Int.toString n) + else + string x), p_list_sep (box []) (fn x => box [space, string x]) xs, space, string "=", |