CVS: sml-dist/src/compiler/FLINT/plambda flintnm.sml, 1.17.10.1, 1.17.10.2

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

Modified Files:
      Tag: primop-branch-2
	flintnm.sml 
Log Message:
debug printout

Index: flintnm.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/FLINT/plambda/flintnm.sml,v
retrieving revision 1.17.10.1
retrieving revision 1.17.10.2
diff -C2 -d -r1.17.10.1 -r1.17.10.2
*** flintnm.sml	13 Jul 2006 18:21:38 -0000	1.17.10.1
--- flintnm.sml	18 Jul 2006 19:46:35 -0000	1.17.10.2
***************
*** 110,117 ****
  
  fun tofundec (venv,d,f_lv,arg_lv,arg_lty,body,isrec) =
!     let val _ = (print (concat ["tofundec translate body: ", 
  				(LtyBasic.lt_print arg_lty),
  				" "]);
! 		 PPLexp.printLexp body; print "\n")
  	val (body',body_lty) =
          (* first, we translate the body (in the extended env) *)
--- 110,117 ----
  
  fun tofundec (venv,d,f_lv,arg_lv,arg_lty,body,isrec) =
!     let (* val _ = (print (concat ["tofundec translate body: ", 
  				(LtyBasic.lt_print arg_lty),
  				" "]);
! 		 PPLexp.printLexp body; print "\n") *)
  	val (body',body_lty) =
          (* first, we translate the body (in the extended env) *)


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