CVS: sml-dist/src/compiler/ElabData/types typesutil.sml,1.2,1.3

Update of /cvsroot/smlnj/sml-dist/src/compiler/ElabData/types
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28271/src/compiler/ElabData/types

Modified Files:
	typesutil.sml 
Log Message:
  Remove Substring.all.


Index: typesutil.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/ElabData/types/typesutil.sml,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** typesutil.sml	20 Aug 2001 19:34:04 -0000	1.2
--- typesutil.sml	7 Nov 2005 18:17:09 -0000	1.3
***************
*** 49,53 ****
  
  fun extract_varname_info name =
!     let val name = SS.triml 1 (SS.all name)  (* remove leading "'" *)
  	val (name, eq) =
  	  if SS.sub(name,0) = #"'"      (* initial "'" signifies equality *) 
--- 49,53 ----
  
  fun extract_varname_info name =
!     let val name = SS.triml 1 (SS.full name)  (* remove leading "'" *)
  	val (name, eq) =
  	  if SS.sub(name,0) = #"'"      (* initial "'" signifies equality *) 



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