diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-08-08 10:28:32 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-08-08 10:28:32 -0400 |
| commit | baf22271ef6e646c97ddfa1e4193a8857816c67d (patch) | |
| tree | 1d34bf6404d3e94e6862c5fedbc4e53ed6bab883 /src/source_print.sml | |
| parent | 51fd5b1af6b2af7706c0c8604129d99e504a2d36 (diff) | |
Parametrized datatypes through explify
Diffstat (limited to 'src/source_print.sml')
| -rw-r--r-- | src/source_print.sml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/source_print.sml b/src/source_print.sml index 960f3ac5..15bb6015 100644 --- a/src/source_print.sml +++ b/src/source_print.sml @@ -278,10 +278,11 @@ fun p_exp' par (e, _) = and p_exp e = p_exp' false e -fun p_datatype (x, cons) = +fun p_datatype (x, xs, cons) = box [string "datatype", space, string x, + p_list_sep (box []) (fn x => box [space, string x]) xs, space, string "=", space, |