CVS: sml-dist/src/cml/cml-lib trace-cml.sml,1.2,1.3

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

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

Index: trace-cml.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/cml/cml-lib/trace-cml.sml,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** trace-cml.sml	1 Jun 2000 18:33:20 -0000	1.2
--- trace-cml.sml	7 Nov 2005 23:03:17 -0000	1.3
***************
*** 52,56 ****
  
      fun findTraceModule name = let
! 	  fun eq ss (TM{label, ...}) = (SS.compare(SS.all label, ss) = EQUAL)
  	  fun find ([], tm) = SOME tm
  	    | find (arc::rest, tm as TM{label, children, ...}) = let
--- 52,56 ----
  
      fun findTraceModule name = let
! 	  fun eq ss (TM{label, ...}) = (SS.compare(SS.full label, ss) = EQUAL)
  	  fun find ([], tm) = SOME tm
  	    | find (arc::rest, tm as TM{label, children, ...}) = let
***************
*** 64,68 ****
  	  in
  	    find (
! 	      SS.tokens (fn #"/" => true | _ => false) (SS.all name),
  	      traceRoot)
  	  end
--- 64,68 ----
  	  in
  	    find (
! 	      SS.tokens (fn #"/" => true | _ => false) (SS.full name),
  	      traceRoot)
  	  end



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