diff options
Diffstat (limited to 'src/prim.sml')
-rw-r--r-- | src/prim.sml | 6 |
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) |