1 files changed, 6 insertions, 0 deletions
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)