Mercurial > urweb
diff src/source_print.sml @ 2009:799be3911ce3
Monadic bind supports patterns
| author | Adam Chlipala <adam@chlipala.net> |
|---|---|
| date | Fri, 02 May 2014 17:16:02 -0400 |
| parents | d6b0ee53dc93 |
| children | 403f0cc65b9c |
line wrap: on
line diff
--- a/src/source_print.sml Fri May 02 15:32:10 2014 -0400 +++ b/src/source_print.sml Fri May 02 17:16:02 2014 -0400 @@ -277,14 +277,20 @@ space, string "!"]) - | ERecord xes => box [string "{", - p_list (fn (x, e) => - box [p_name x, - space, - string "=", - space, - p_exp e]) xes, - string "}"] + | ERecord (xes, flex) => box [string "{", + p_list (fn (x, e) => + box [p_name x, + space, + string "=", + space, + p_exp e]) xes, + if flex then + box [string ",", + space, + string "..."] + else + box [], + string "}"] | EField (e, c) => box [p_exp' true e, string ".", p_con' true c]