Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/smlnj-lib/Util/format.sml
ViewVC logotype

Diff of /sml/trunk/src/smlnj-lib/Util/format.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1267, Thu Oct 3 03:25:56 2002 UTC revision 1268, Fri Oct 4 21:23:30 2002 UTC
# Line 270  Line 270 
270                                            then ""                                            then ""
271                                            else ("." ^ frac)                                            else ("." ^ frac)
272                                    in                                    in
273                                      padFn(concat(sign::whole::frac::expStr))                                      padFn(concat(sign::whole::num::expStr))
274                                    end                                    end
275                              (* end case *))                              (* end case *))
276                          else if Real.==(Real.negInf, r)                          else if Real.==(Real.negInf, r)

Legend:
Removed from v.1267  
changed lines
  Added in v.1268

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0