CVS: sml-dist/src/system/Basis/Implementation/OS os-path-fn.sml,1.4,1.5

Update of /cvsroot/smlnj/sml-dist/src/system/Basis/Implementation/OS
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28271/src/system/Basis/Implementation/OS

Modified Files:
	os-path-fn.sml 
Log Message:
  Remove Substring.all.


Index: os-path-fn.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/system/Basis/Implementation/OS/os-path-fn.sml,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** os-path-fn.sml	10 Sep 2003 00:27:29 -0000	1.4
--- os-path-fn.sml	7 Nov 2005 18:17:09 -0000	1.5
***************
*** 53,57 ****
        | concatArcs (a::al1, al2) = a :: concatArcs(al1, al2)
  
!     fun validVolume {isAbs, vol} = P.validVolume(isAbs, SS.all vol)
  
      fun fromString "" = {isAbs = false, vol = "", arcs = []}
--- 53,57 ----
        | concatArcs (a::al1, al2) = a :: concatArcs(al1, al2)
  
!     fun validVolume {isAbs, vol} = P.validVolume(isAbs, SS.full vol)
  
      fun fromString "" = {isAbs = false, vol = "", arcs = []}
***************
*** 123,127 ****
      fun splitBaseExt p = let
  	  val {dir, file} = splitDirFile p
! 	  val (file', ext') = SS.splitr (fn c => c <> #".") (SS.all file)
  	  val fileLen = SS.size file'
  	  val (file, ext) =
--- 123,127 ----
      fun splitBaseExt p = let
  	  val {dir, file} = splitDirFile p
! 	  val (file', ext') = SS.splitr (fn c => c <> #".") (SS.full file)
  	  val fileLen = SS.size file'
  	  val (file, ext) =



-------------------------------------------------------
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