diff options
author | Adam Chlipala <adamc@hcoop.net> | 2009-09-15 12:41:54 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2009-09-15 12:41:54 -0400 |
commit | b741cb156921b5de75e2955b8cd4f71c89268e7e (patch) | |
tree | d6603b8c61d4657448e07ca3389d291a44242adc /src/prim.sml | |
parent | 56492a2c4801e14de9f195b924bff0b48f68d2c4 (diff) |
Escape character constants; lift indices properly in Reduce 'case' simplification
Diffstat (limited to 'src/prim.sml')
-rw-r--r-- | src/prim.sml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/prim.sml b/src/prim.sml index 597b3fba..c84c557e 100644 --- a/src/prim.sml +++ b/src/prim.sml @@ -41,7 +41,7 @@ fun p_t t = Int n => string (Int64.toString n) | Float n => string (Real64.toString n) | String s => box [string "\"", string (String.toString s), string "\""] - | Char ch => box [string "#\"", string (String.str ch), string "\""] + | Char ch => box [string "#\"", string (String.toString (String.str ch)), string "\""] fun int2s n = if Int64.compare (n, Int64.fromInt 0) = LESS then @@ -73,7 +73,7 @@ fun p_t_GCC t = Int n => string (int2s n) | Float n => string (float2s n) | String s => box [string "\"", string (String.toString s), string "\""] - | Char ch => box [string "'", string (str ch), string "'"] + | Char ch => box [string "'", string (String.toString (str ch)), string "'"] fun equal x = case x of |