CVS: sml-dist/src/compiler/FLINT/trans translate.sml, 1.33.4.26, 1.33.4.27

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

Modified Files:
      Tag: primop-branch-2
	translate.sml 
Log Message:
minor printing tweaks for debugging lt_inst problem

Index: translate.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/FLINT/trans/translate.sml,v
retrieving revision 1.33.4.26
retrieving revision 1.33.4.27
diff -C2 -d -r1.33.4.26 -r1.33.4.27
*** translate.sml	28 Aug 2006 22:57:54 -0000	1.33.4.26
--- translate.sml	29 Aug 2006 14:05:14 -0000	1.33.4.27
***************
*** 1498,1502 ****
  val _ = if ltyerrors
          then (print "**** Translate: checkLty failed ****\n";
!               with_pp(fn ppstm => (PPLexp.ppLexp 5 ppstm plexp));
                complain EM.WARN "checkLty" EM.nullErrorBody)
          else print "**** Translate: finished typechecking plexp ****\n"
--- 1498,1502 ----
  val _ = if ltyerrors
          then (print "**** Translate: checkLty failed ****\n";
!               with_pp(fn ppstm => (PPLexp.ppLexp 25 ppstm plexp));
                complain EM.WARN "checkLty" EM.nullErrorBody)
          else print "**** Translate: finished typechecking plexp ****\n"


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