CVS: sml/src/cml/src/core-cml event.sml,1.3,1.4

Update of /cvsroot/smlnj/sml/src/cml/src/core-cml
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11688/src/core-cml

Modified Files:
	event.sml 
Log Message:
  Bug fix: problem with withNack and never.


Index: event.sml
===================================================================
RCS file: /cvsroot/smlnj/sml/src/cml/src/core-cml/event.sml,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** event.sml	20 Jun 2001 20:39:15 -0000	1.3
--- event.sml	28 Feb 2006 03:18:52 -0000	1.4
***************
*** 308,312 ****
    (* walk the event group tree, collecting the base events (with associated
     * ack flags), and a list of flag sets.  A flag set is a (cvar * ack flag list)
!    * pairs, where the flags are those associated with the events covered by the
     * nack cvar.
     *)
--- 308,312 ----
    (* walk the event group tree, collecting the base events (with associated
     * ack flags), and a list of flag sets.  A flag set is a (cvar * ack flag list)
!    * pair, where the flags are those associated with the events covered by the
     * nack cvar.
     *)
***************
*** 418,425 ****
  		(* end case *))
  	  in
! 	    case bl
! 	     of [(bev, _)] => syncOnOneEvt bev
! 	      | _ => (S.atomicBegin(); ext (bl, []))
! 	    (* end case *)
  	  end
  
--- 418,422 ----
  		(* end case *))
  	  in
! 	    S.atomicBegin(); ext (bl, [])
  	  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