Mercurial > urweb

diff src/prim.sml @ 567:1901db85acb4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Start of JsComp
author Adam Chlipala <adamc@hcoop.net>
date Sat, 20 Dec 2008 14:19:21 -0500
parents ffa18975e661
children 66463006f893
line wrap: on
line diff
--- a/src/prim.sml	Fri Dec 19 12:38:11 2008 -0500
+++ b/src/prim.sml	Sat Dec 20 14:19:21 2008 -0500
@@ -53,6 +53,12 @@
     else
         Real64.toString n
 
+fun toString t =
+    case t of
+        Int n => int2s n
+      | Float n => float2s n
+      | String s => s
+
 fun p_t_GCC t =
     case t of
         Int n => string (int2s n)