CVS: sml-dist/src/compiler/FLINT/kernel ltykernel.sml, 1.18, 1.18.12.1

Update of /cvsroot/smlnj/sml-dist/src/compiler/FLINT/kernel
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv1834/src/compiler/FLINT/kernel

Modified Files:
      Tag: primop-branch-2
	ltykernel.sml 
Log Message:
typesutil, moduleutils, and translate...debugging output now checks debugging flag...more debugging for flintnm/ltykernel

Index: ltykernel.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/FLINT/kernel/ltykernel.sml,v
retrieving revision 1.18
retrieving revision 1.18.12.1
diff -C2 -d -r1.18 -r1.18.12.1
*** ltykernel.sml	27 May 2003 21:54:21 -0000	1.18
--- ltykernel.sml	26 Jul 2006 15:21:41 -0000	1.18.12.1
***************
*** 706,710 ****
                                  | (SOME ts, n) => 
                                      (let val y = List.nth(ts, j) 
!                                            handle _ => raise tcUnbound
                                        in h(y, 0, nl - n, initTycEnv)
                                       end)
--- 706,714 ----
                                  | (SOME ts, n) => 
                                      (let val y = List.nth(ts, j) 
!                                            handle Subscript => 
! 						  (print ("Selecting "^(Int.toString j)^"th elem");
! 						   if length ts = 0 then print " empty list\n" else
! 						   print " length > 0 tyc list\n";
! 						   raise tcUnbound)
                                        in h(y, 0, nl - n, initTycEnv)
                                       end)


-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys -- and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV