Raise Size exception from Time.fmt

This applies changes suggested by @JohnReppy to fix issue kfl#36
mrhmouse · Apr 25, 2016 · 9d295e6 · 9d295e6
1 parent 96407bc
commit 9d295e6
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/mosmllib/Time.sml b/src/mosmllib/Time.sml
@@ -34,8 +34,9 @@ in
 
     fun timeToUnits (t, p) = floor(toReal t * negpow10 p + 0.5);
 
-    fun fmt p r =
-	Real.fmt (StringCvt.FIX (SOME (if p > 0 then p else 0))) (r/1000000.0);
+    fun fmt p = if (p < 0)
+                then raise Size
+                else (fn r => Real.fmt (StringCvt.FIX (SOME p)) (r/1000000.0));
 
     fun toString t = fmt 3 t;