diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-05-16 15:22:05 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-05-16 15:22:05 -0400 |
| commit | 6cb3888614811abc30c6a00a1644e256d1d1c780 (patch) | |
| tree | 2880c44d43f0095ce5c1ac7531a4cdff3ce4b730 /src/expl_print.sml | |
| parent | 0159bec5067ac88f3f222595ac6f5e2f94c1d41f (diff) | |
Mutual datatypes through Corify
Diffstat (limited to 'src/expl_print.sml')
| -rw-r--r-- | src/expl_print.sml | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/src/expl_print.sml b/src/expl_print.sml index 7aa36c6d..0783facc 100644 --- a/src/expl_print.sml +++ b/src/expl_print.sml @@ -460,9 +460,7 @@ fun p_datatype env (x, n, xs, cons) = val env = E.pushCNamed env x n k NONE val env = foldl (fn (x, env) => E.pushCRel env x k) env xs in - box [string "datatype", - space, - string x, + box [string x, p_list_sep (box []) (fn x => box [space, string x]) xs, space, string "=", @@ -475,7 +473,7 @@ fun p_datatype env (x, n, xs, cons) = cons] end -fun p_sgn_item env (sgi, _) = +fun p_sgn_item env (sgiAll as (sgi, _)) = case sgi of SgiConAbs (x, n, k) => box [string "con", space, @@ -495,7 +493,9 @@ fun p_sgn_item env (sgi, _) = string "=", space, p_con env c] - | SgiDatatype x => p_datatype env x + | SgiDatatype x => box [string "datatype", + space, + p_list_sep (box [space, string "and", space]) (p_datatype (E.sgiBinds env sgiAll)) x] | SgiDatatypeImp (x, _, m1, ms, x', _, _) => let val m1x = #1 (E.lookupStrNamed env m1) @@ -609,7 +609,9 @@ fun p_decl env (dAll as (d, _) : decl) = string "=", space, p_con env c] - | DDatatype x => p_datatype env x + | DDatatype x => box [string "datatype", + space, + p_list_sep (box [space, string "and", space]) (p_datatype (E.declBinds env dAll)) x] | DDatatypeImp (x, _, m1, ms, x', _, _) => let val m1x = #1 (E.lookupStrNamed env m1) |