CVS: sml-dist/src/compiler/FLINT/kernel ltykernel.sml, 1.18.12.24, 1.18.12.25

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

Modified Files:
      Tag: primop-branch-2
	ltykernel.sml 
Log Message:
streamlined printing, bug/halt on type check error

Index: ltykernel.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/FLINT/kernel/ltykernel.sml,v
retrieving revision 1.18.12.24
retrieving revision 1.18.12.25
diff -C2 -d -r1.18.12.24 -r1.18.12.25
*** ltykernel.sml	29 Aug 2006 23:17:47 -0000	1.18.12.24
--- ltykernel.sml	5 Sep 2006 14:38:20 -0000	1.18.12.25
***************
*** 98,102 ****
                                 print "length(tenv) = "; print (Int.toString(tenvLength tenv)); print "\n"))
                | TC_ENV(tc, ol', nl', tenv')  =>
!                  (print "TC_ENV("; checkTCVAR(tc,ol',nl',tenv'); print ")\n")
                | _ => () (* print ("tcc_env OTHER " ^ tci_print tci ^"\n") *) 
     in checkTCVAR(x,ol,nl,tenv); 
--- 98,102 ----
                                 print "length(tenv) = "; print (Int.toString(tenvLength tenv)); print "\n"))
                | TC_ENV(tc, ol', nl', tenv')  =>
!                  ((* print "TC_ENV("; *) checkTCVAR(tc,ol',nl',tenv') (*;print ")\n" *))
                | _ => () (* print ("tcc_env OTHER " ^ tci_print tci ^"\n") *) 
     in checkTCVAR(x,ol,nl,tenv); 


-------------------------------------------------------------------------
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642