diff options
author | 2009-02-24 13:46:08 -0500 | |
---|---|---|
committer | 2009-02-24 13:46:08 -0500 | |
commit | ee3f3e9e0a82141b6831b22d4f1412f5a9fb91d4 (patch) | |
tree | fc4a6f3cb49df2a30d49e29bf871648fafa430fa /src/source_print.sml | |
parent | 7b71af9c790abcff2bfe0a16a417a1023776351d (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) => |