Mercurial > urweb
diff src/prim.sml @ 942:280f81731426
Escape character constants; lift indices properly in Reduce 'case' simplification
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Tue, 15 Sep 2009 12:41:54 -0400 |
| parents | 395a5d450cc0 |
| children | 4eb1c4a1b057 |
line wrap: on
line diff
--- a/src/prim.sml Tue Sep 15 12:23:42 2009 -0400 +++ b/src/prim.sml Tue Sep 15 12:41:54 2009 -0400 @@ -41,7 +41,7 @@ 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 @@ 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