CVS: sml-dist/src/ml-lex lexgen.sml,1.8,1.9

Update of /cvsroot/smlnj/sml-dist/src/ml-lex
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4095/src/ml-lex

Modified Files:
	lexgen.sml 
Log Message:
fixed bug in xxxArraySlice.update; pushed Basis changes through

Index: lexgen.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/ml-lex/lexgen.sml,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** lexgen.sml	27 Jul 2005 18:49:19 -0000	1.8
--- lexgen.sml	7 Nov 2005 23:03:18 -0000	1.9
***************
*** 1077,1081 ****
  	 fun make(nil,f) = (startline f; say "_ => raise Internal.LexerError\n")
  	  | make((x,a)::y,f) = (startline f; say x; say " => ";
! 				if Substring.size(#2 (Substring.position "yytext" (Substring.all a))) = 0
   then
                                       (say "("; say a; say ")")
--- 1077,1081 ----
  	 fun make(nil,f) = (startline f; say "_ => raise Internal.LexerError\n")
  	  | make((x,a)::y,f) = (startline f; say x; say " => ";
! 				if Substring.size(#2 (Substring.position "yytext" (Substring.full a))) = 0
   then
                                       (say "("; say a; say ")")



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