--- trunk/src/common/float-lit.sml 2010/05/26 18:20:49 82 +++ trunk/src/common/float-lit.sml 2010/05/26 18:50:44 83 @@ -14,7 +14,7 @@ val isZero : float -> bool (* return the representation of +/-0.0 *) - val zero : bool ->float + val zero : bool -> float (* plus and minus one *) val one : float