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/system/Basis/Implementation/num-scan.sml
ViewVC logotype

Diff of /sml/trunk/src/system/Basis/Implementation/num-scan.sml

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

revision 1380, Wed Sep 17 20:20:51 2003 UTC revision 1381, Wed Sep 17 21:28:41 2003 UTC
# Line 295  Line 295 
295     * rest of the stream.     * rest of the stream.
296     *)     *)
297      fun fscan10 getc (d, cs) = let      fun fscan10 getc (d, cs) = let
298            fun wordToReal w = InlineT.real(W.toIntX w)            fun wordToReal w = InlineT.Real64.from_int31 (W.toIntX w)
299            fun scan (accum, n, cs) = (case (getc cs)            fun scan (accum, n, cs) = (case (getc cs)
300                   of (SOME(c, cs')) => let val d = code c                   of (SOME(c, cs')) => let val d = code c
301                        in                        in

Legend:
Removed from v.1380  
changed lines
  Added in v.1381

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