CVS: sml-dist/src/compiler/FLINT/plambda flintnm.sml, 1.17.10.11, 1.17.10.12

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

Modified Files:
      Tag: primop-branch-2
	flintnm.sml 
Log Message:
made plambda lexp printout dependent on debugging flag

Index: flintnm.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/FLINT/plambda/flintnm.sml,v
retrieving revision 1.17.10.11
retrieving revision 1.17.10.12
diff -C2 -d -r1.17.10.11 -r1.17.10.12
*** flintnm.sml	31 Jul 2006 23:29:46 -0000	1.17.10.11
--- flintnm.sml	7 Aug 2006 03:52:33 -0000	1.17.10.12
***************
*** 345,349 ****
  					    (debugmsg ("tovalues cont ltys ["^
  						      Int.toString n ^"]:");
! 					     PPLexp.printLexp l;
  					debugmsg (LtyBasic.lt_print x); scan' (xs, ls, n + 1))
  				    in scan'(lts, lexps, 0)
--- 345,349 ----
  					    (debugmsg ("tovalues cont ltys ["^
  						      Int.toString n ^"]:");
! 					     if !debugging then PPLexp.printLexp l else ();
  					debugmsg (LtyBasic.lt_print x); scan' (xs, ls, n + 1))
  				    in scan'(lts, lexps, 0)


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