diff options
Diffstat (limited to 'src/source_print.sml')
-rw-r--r-- | src/source_print.sml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/source_print.sml b/src/source_print.sml index 4453454d..8d8b28c3 100644 --- a/src/source_print.sml +++ b/src/source_print.sml @@ -267,6 +267,9 @@ fun p_exp' par (e, _) = string "=>", space, p_exp e]) + | EDisjointApp e => parenIf par (box [p_exp e, + space, + string "!"]) | ERecord xes => box [string "{", p_list (fn (x, e) => |