diff options
author | Adam Chlipala <adamc@hcoop.net> | 2010-05-16 15:34:24 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2010-05-16 15:34:24 -0400 |
commit | 44ffaada5a0dc5ade3a73fe9b54fea1639eb2730 (patch) | |
tree | a87856f597a385b0dcd0541eecad1cc355221a61 /src/prim.sml | |
parent | a86fbcb8f79e6f505ff2bd93fe6a73aacd1f7c31 (diff) |
Fix C-mangling of datatype names
Diffstat (limited to 'src/prim.sml')
-rw-r--r-- | src/prim.sml | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/prim.sml b/src/prim.sml index 849518f4..d4471143 100644 --- a/src/prim.sml +++ b/src/prim.sml @@ -74,14 +74,12 @@ fun pad (n, ch, s) = else str ch ^ pad (n-1, ch, s) -val gccify = String.toCString - fun p_t_GCC t = case t of Int n => string (int2s n) | Float n => string (float2s n) - | String s => box [string "\"", string (gccify s), string "\""] - | Char ch => box [string "'", string (gccify (str ch)), string "'"] + | String s => box [string "\"", string (String.toCString s), string "\""] + | Char ch => box [string "'", string (Char.toCString ch), string "'"] fun equal x = case x of |