CVS: sml-dist/src/system/Basis/Implementation/Win32 os-path.sml,1.3,1.4

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

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


Index: os-path.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/system/Basis/Implementation/Win32/os-path.sml,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** os-path.sml	10 Sep 2003 00:27:30 -0000	1.3
--- os-path.sml	7 Nov 2005 18:17:09 -0000	1.4
***************
*** 41,45 ****
  	  (SS.isEmpty vol) orelse volPresent(SS.string vol)
  
!       val emptySS    = SS.all ""
  
        fun splitPath (vol, s) = 
--- 41,45 ----
  	  (SS.isEmpty vol) orelse volPresent(SS.string vol)
  
!       val emptySS    = SS.full ""
  
        fun splitPath (vol, s) = 
***************
*** 50,55 ****
        fun splitVolPath "" = (false, emptySS, emptySS)
  	| splitVolPath s = 
! 	  if volPresent s then splitPath (SS.splitAt (SS.all s, 2))
! 	  else splitPath (emptySS, SS.all s)
  
        fun joinVolPath arg = 
--- 50,55 ----
        fun splitVolPath "" = (false, emptySS, emptySS)
  	| splitVolPath s = 
! 	  if volPresent s then splitPath (SS.splitAt (SS.full s, 2))
! 	  else splitPath (emptySS, SS.full s)
  
        fun joinVolPath arg = 



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