aboutsummaryrefslogtreecommitdiffhomepage
path: root/src/cjr_print.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2010-05-16 15:34:24 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2010-05-16 15:34:24 -0400
commitbee7344f8b4ce196b759132bddcd036caa3aaca2 (patch)
treea87856f597a385b0dcd0541eecad1cc355221a61 /src/cjr_print.sml
parent986eed1b84de490b264d8eac48a9aa405ea8eec0 (diff)
Fix C-mangling of datatype names
Diffstat (limited to 'src/cjr_print.sml')
-rw-r--r--src/cjr_print.sml4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/cjr_print.sml b/src/cjr_print.sml
index f0038de6..06999dec 100644
--- a/src/cjr_print.sml
+++ b/src/cjr_print.sml
@@ -79,7 +79,7 @@ fun p_typ' par env (t, loc) =
| TDatatype (Enum, n, _) =>
(box [string "enum",
space,
- string ("__uwe_" ^ #1 (E.lookupDatatype env n) ^ "_" ^ Int.toString n)]
+ string ("__uwe_" ^ ident (#1 (E.lookupDatatype env n)) ^ "_" ^ Int.toString n)]
handle CjrEnv.UnboundNamed _ => string ("__uwd_UNBOUND__" ^ Int.toString n))
| TDatatype (Option, n, xncs) =>
(case ListUtil.search #3 (!xncs) of
@@ -93,7 +93,7 @@ fun p_typ' par env (t, loc) =
| TDatatype (Default, n, _) =>
(box [string "struct",
space,
- string ("__uwd_" ^ #1 (E.lookupDatatype env n) ^ "_" ^ Int.toString n ^ "*")]
+ string ("__uwd_" ^ ident (#1 (E.lookupDatatype env n)) ^ "_" ^ Int.toString n ^ "*")]
handle CjrEnv.UnboundNamed _ => string ("__uwd_UNBOUND__" ^ Int.toString n))
| TFfi (m, x) => box [string "uw_", p_ident m, string "_", p_ident x]
| TOption t =>