CVS: sml-dist/src/compiler/FLINT/plambda flintnm.sml, 1.17.10.4, 1.17.10.5

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

Modified Files:
      Tag: primop-branch-2
	flintnm.sml 
Log Message:
translate now reports every site of introduction for lvars

Index: flintnm.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/FLINT/plambda/flintnm.sml,v
retrieving revision 1.17.10.4
retrieving revision 1.17.10.5
diff -C2 -d -r1.17.10.4 -r1.17.10.5
*** flintnm.sml	26 Jul 2006 15:22:09 -0000	1.17.10.4
--- flintnm.sml	26 Jul 2006 21:28:29 -0000	1.17.10.5
***************
*** 117,123 ****
  
  fun tofundec (venv,d,f_lv,arg_lv,arg_lty,body,isrec) =
!     let val _ = (debugmsg (concat ["tofundec translate body: ", 
  				(LtyBasic.lt_print arg_lty),
! 				" "]);
  		 PPLexp.printLexp body) 
  	val (body',body_lty) =
--- 117,123 ----
  
  fun tofundec (venv,d,f_lv,arg_lv,arg_lty,body,isrec) =
!     let val _ = (debugmsg (concat ["tofundec normalize argument: ", 
  				(LtyBasic.lt_print arg_lty),
! 				"\ntofundec normalize body: \n"]);
  		 PPLexp.printLexp body) 
  	val (body',body_lty) =


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