CVS: sml-dist/src/lexgen/src/BackEnds/Match match.sml,1.1,1.2

Update of /cvsroot/smlnj/sml-dist/src/lexgen/src/BackEnds/Match
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14104/src/lexgen/src/BackEnds/Match

Modified Files:
	match.sml 
Log Message:
improvements/bugfixes to lexgen from Aaron Turon

Index: match.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/lexgen/src/BackEnds/Match/match.sml,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** match.sml	1 Mar 2006 04:44:29 -0000	1.1
--- match.sml	1 Mar 2006 20:17:27 -0000	1.2
***************
*** 19,24 ****
      structure LO = LexOutputSpec
  
!     fun match (LO.State{id, label, final, next}, []) = final
!       | match (LO.State{id, label, final, next}, sym::r) = let
  	  fun goto [] = []
  	    | goto ((syms, s)::r') = 
--- 19,24 ----
      structure LO = LexOutputSpec
  
!     fun match (LO.State{id, label, final, next, ...}, []) = final
!       | match (LO.State{id, label, final, next, ...}, sym::r) = let
  	  fun goto [] = []
  	    | goto ((syms, s)::r') = 



-------------------------------------------------------
This SF.Net email is sponsored by xPML, a groundbreaking scripting language
that extends applications into web and mobile media. Attend the live webcast
and join the prime developer group breaking into this new coding territory!
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=110944&bid=241720&dat=121642