summaryrefslogtreecommitdiff
path: root/src/source_print.sml
diff options
context:
space:
mode:
Diffstat (limited to 'src/source_print.sml')
-rw-r--r--src/source_print.sml17
1 files changed, 17 insertions, 0 deletions
diff --git a/src/source_print.sml b/src/source_print.sml
index ceb331f0..6aaeb402 100644
--- a/src/source_print.sml
+++ b/src/source_print.sml
@@ -379,6 +379,16 @@ fun p_sgn_item (sgi, _) =
string ":",
space,
p_con c]
+ | SgiClassAbs x => box [string "class",
+ space,
+ string x]
+ | SgiClass (x, c) => box [string "class",
+ space,
+ string x,
+ space,
+ string "=",
+ space,
+ p_con c]
and p_sgn (sgn, _) =
case sgn of
@@ -531,6 +541,13 @@ fun p_decl ((d, _) : decl) =
string ":",
space,
p_con c]
+ | DClass (x, c) => box [string "class",
+ space,
+ string x,
+ space,
+ string "=",
+ space,
+ p_con c]
and p_str (str, _) =
case str of