diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-09-07 10:20:42 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-09-07 10:20:42 -0400 |
| commit | dbb9192edae68feb230b5b231fcaf10fd68103e8 (patch) | |
| tree | 251b269c6625e07edaba423511cac2cdad51bbed /src/prim.sml | |
| parent | 79c2e18d5d237d48f0803bb874d72b4354ba9b25 (diff) | |
toString for float and bool
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 8c0e03f7..2c24fa0a 100644 --- a/src/prim.sml +++ b/src/prim.sml @@ -49,9 +49,9 @@ fun int2s n = fun float2s n = if Real64.compare (n, Real64.fromInt 0) = LESS then - "-" ^ Real64.toString (Real64.~ n) ^ "L" + "-" ^ Real64.toString (Real64.~ n) else - Real64.toString n ^ "L" + Real64.toString n fun p_t_GCC t = case t of |