diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-02-24 13:46:08 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-02-24 13:46:08 -0500 |
| commit | 541bd325e7e0be52aa27dd56f16f489c44e05d2b (patch) | |
| tree | fc4a6f3cb49df2a30d49e29bf871648fafa430fa /src/source_print.sml | |
| parent | 7865cb372d95c42542d59cbcf83ba541b0ab3f8a (diff) | |
Top.Fold.concat elaborates
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) => |