From 38f0a1e10825923e44f22bdd559291b32eb3173d Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sat, 20 Dec 2008 14:19:21 -0500
Subject: Start of JsComp

---
 src/prim.sml | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/prim.sml')

diff --git a/src/prim.sml b/src/prim.sml
index daf666e8..468b28d5 100644
--- a/src/prim.sml
+++ b/src/prim.sml
@@ -53,6 +53,12 @@ fun float2s n =
     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)
-- 
cgit v1.2.3