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 1858, Sat Nov 5 15:36:33 2005 UTC revision 1859, Sun Nov 6 19:35:05 2005 UTC
# Line 82  Line 82 
82                        (* end case *)                        (* end case *)
83                      end                      end
84            in            in
85              scan (Substring.all str, [])              scan (SS.full str, [])
86            end            end
87    
88      fun format s = let      fun format s = let
# Line 294  Line 294 
294            fun doArgs ([], [], l) = SS.concat(rev l)            fun doArgs ([], [], l) = SS.concat(rev l)
295              | doArgs ((Raw s)::rf, args, l) = doArgs(rf, args, s::l)              | doArgs ((Raw s)::rf, args, l) = doArgs(rf, args, s::l)
296              | doArgs (Field(flags, wid, ty)::rf, arg::ra, l) =              | doArgs (Field(flags, wid, ty)::rf, arg::ra, l) =
297                  doArgs (rf, ra, SS.all (doField (flags, wid, ty, arg)) :: l)                  doArgs (rf, ra, SS.full (doField (flags, wid, ty, arg)) :: l)
298              | doArgs _ = raise BadFmtList              | doArgs _ = raise BadFmtList
299            in            in
300              fn args => doArgs (fmts, args, [])              fn args => doArgs (fmts, args, [])

Legend:
Removed from v.1858  
changed lines
  Added in v.1859

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