summaryrefslogtreecommitdiff
path: root/src/prim.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2009-09-15 12:41:54 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2009-09-15 12:41:54 -0400
commit69bdeb0e79c7b33260111c6c6eae332d37d28d0e (patch)
treed6603b8c61d4657448e07ca3389d291a44242adc /src/prim.sml
parent508ac0708d67027aa9d14138d24f4aa427a70c03 (diff)
Escape character constants; lift indices properly in Reduce 'case' simplification
Diffstat (limited to 'src/prim.sml')
-rw-r--r--src/prim.sml4
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