CVS: sml/src/smlnj-lib/Util format.sml,1.5,1.6 scan.sml,1.3,1.4
John Reppy <[email protected]>
| Newsgroups | gmane.comp.lang.sml.smlnj.commits |
|---|---|
| Message-ID | <[email protected]> |
Update of /cvsroot/smlnj/sml/src/smlnj-lib/Util In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9943 Modified Files: format.sml scan.sml Log Message: Switch uses of Substring.all to Substring.full. Index: format.sml =================================================================== RCS file: /cvsroot/smlnj/sml/src/smlnj-lib/Util/format.sml,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** format.sml 4 Oct 2002 21:23:30 -0000 1.5 --- format.sml 6 Nov 2005 19:35:05 -0000 1.6 *************** *** 83,87 **** end in ! scan (Substring.all str, []) end --- 83,87 ---- end in ! scan (SS.full str, []) end *************** *** 295,299 **** | doArgs ((Raw s)::rf, args, l) = doArgs(rf, args, s::l) | doArgs (Field(flags, wid, ty)::rf, arg::ra, l) = ! doArgs (rf, ra, SS.all (doField (flags, wid, ty, arg)) :: l) | doArgs _ = raise BadFmtList in --- 295,299 ---- | doArgs ((Raw s)::rf, args, l) = doArgs(rf, args, s::l) | doArgs (Field(flags, wid, ty)::rf, arg::ra, l) = ! doArgs (rf, ra, SS.full (doField (flags, wid, ty, arg)) :: l) | doArgs _ = raise BadFmtList in Index: scan.sml =================================================================== RCS file: /cvsroot/smlnj/sml/src/smlnj-lib/Util/scan.sml,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** scan.sml 22 May 2003 17:12:13 -0000 1.3 --- scan.sml 6 Nov 2005 19:35:05 -0000 1.4 *************** *** 93,97 **** end in ! scan (SS.all str, []) end --- 93,97 ---- end in ! scan (SS.full str, []) end ------------------------------------------------------- SF.Net email is sponsored by: Tame your development challenges with Apache's Geronimo App Server. Download it for free - -and be entered to win a 42" plasma tv or your very own Sony(tm)PSP. Click here to play: http://sourceforge.net/geronimo.php