CVS: sml-dist/src/lexgen/src reg-exp.sml,1.1,1.2

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

Modified Files:
	reg-exp.sml 
Log Message:
bug fix from Aaron

Index: reg-exp.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/lexgen/src/reg-exp.sml,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** reg-exp.sml	1 Mar 2006 04:44:29 -0000	1.1
--- reg-exp.sml	2 Mar 2006 03:44:49 -0000	1.2
***************
*** 138,148 ****
        | mkClosure re = Closure re
  
!     fun mergeSIS (res, mop) = let
            fun isSIS (SymSet _) = true
  	    | isSIS _ = false
! 	  val (siss, res) = List.partition isSIS res
  	  in case siss
! 	      of []   => res
! 	       | [re] => res
  	       | sis::siss' => let
  		   fun wrapmop (SymSet s1, SymSet s2) = 
--- 138,148 ----
        | mkClosure re = Closure re
  
!     fun mergeSIS (inRes, mop) = let
            fun isSIS (SymSet _) = true
  	    | isSIS _ = false
! 	  val (siss, res) = List.partition isSIS inRes
  	  in case siss
! 	      of []   => inRes
! 	       | [re] => inRes
  	       | sis::siss' => let
  		   fun wrapmop (SymSet s1, SymSet s2) = 
***************
*** 468,469 ****
--- 468,471 ----
  
    end
+ 
+ 



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