Time.fmt does not raise the Size exception.

[JohnReppy]

The code

load "Time";
Time.fmt ~1 (Time.now());

should raise the Size exception, but does not in Moscow ML. The simple fix is to change lines 37-38 of Time.sml to

fun fmt p r = Real.fmt (StringCvt.FIX (SOME p)) (r/1000000.0);

since Real.fmt raises Size on invalid precision specifications.

A better fix is

fun fmt p = if (p < 0)
      then raise Size
      else (fn r => Real.fmt (StringCvt.FIX (SOME p)) (r/1000000.0))

since it is consistent with how Real.fmt treats invalid format specifications.