diff options
Diffstat (limited to 'src/mono_print.sml')
| -rw-r--r-- | src/mono_print.sml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/mono_print.sml b/src/mono_print.sml index bf1b0935..e5ef4cf8 100644 --- a/src/mono_print.sml +++ b/src/mono_print.sml @@ -400,7 +400,8 @@ fun p_datatype env (x, n, cons) = let val env = E.pushDatatype env x n cons in - box [string x, + box [if !debug then (string (x ^ "__" ^ Int.toString n)) + else string x, space, string "=", space, |