diff options
Diffstat (limited to 'src/source_print.sml')
| -rw-r--r-- | src/source_print.sml | 43 |
1 files changed, 25 insertions, 18 deletions
diff --git a/src/source_print.sml b/src/source_print.sml index 760f46bf..245ee79e 100644 --- a/src/source_print.sml +++ b/src/source_print.sml @@ -329,6 +329,23 @@ and p_sgn (sgn, _) = | SgnProj (m, ms, x) => p_list_sep (string ".") string (m :: ms @ [x]) +fun p_vali (x, co, e) = + case co of + NONE => box [string x, + space, + string "=", + space, + p_exp e] + | SOME t => box [string x, + space, + string ":", + space, + p_con t, + space, + string "=", + space, + p_exp e] + fun p_decl ((d, _) : decl) = case d of DCon (x, NONE, c) => box [string "con", @@ -349,24 +366,14 @@ fun p_decl ((d, _) : decl) = string "=", space, p_con c] - | DVal (x, NONE, e) => box [string "val", - space, - string x, - space, - string "=", - space, - p_exp e] - | DVal (x, SOME t, e) => box [string "val", - space, - string x, - space, - string ":", - space, - p_con t, - space, - string "=", - space, - p_exp e] + | DVal vi => box [string "val", + space, + p_vali vi] + | DValRec vis => box [string "val", + space, + string "rec", + space, + p_list_sep (box [newline, string "and", space]) p_vali vis] | DSgn (x, sgn) => box [string "signature", space, |