CVS: sml-dist/src/compiler/FLINT/plambda flintnm.sml, 1.17.10.6, 1.17.10.7

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

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

Index: flintnm.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/FLINT/plambda/flintnm.sml,v
retrieving revision 1.17.10.6
retrieving revision 1.17.10.7
diff -C2 -d -r1.17.10.6 -r1.17.10.7
*** flintnm.sml	26 Jul 2006 21:56:37 -0000	1.17.10.6
--- flintnm.sml	26 Jul 2006 22:34:58 -0000	1.17.10.7
***************
*** 120,124 ****
  				(LtyBasic.lt_print arg_lty),
  				"\ntofundec normalize body: \n"]);
! 		 PPLexp.printLexp body) 
  	val (body',body_lty) =
          (* first, we translate the body (in the extended env) *)
--- 120,124 ----
  				(LtyBasic.lt_print arg_lty),
  				"\ntofundec normalize body: \n"]);
! 		 if !debugging then PPLexp.printLexp body else ()) 
  	val (body',body_lty) =
          (* first, we translate the body (in the extended env) *)
***************
*** 270,274 ****
  and tovalue (venv,d,lexp,cont) =
      let val _ = debugmsg ">>tovalue"
! 	val _ = PPLexp.printLexp lexp
  	val _ = 1
      val v = case lexp of
--- 270,274 ----
  and tovalue (venv,d,lexp,cont) =
      let val _ = debugmsg ">>tovalue"
! 	val _ = if !debugging then PPLexp.printLexp lexp else ()
  	val _ = 1
      val v = case lexp of
***************
*** 317,320 ****
--- 317,321 ----
  and tovalues (venv,d,lexp,cont) =
      let val _ = debugmsg ">>tovalues"
+ 	val _ = if !debugging then PPLexp.printLexp lexp else ()
  	val _ = 1
      val v = case lexp of
***************
*** 352,356 ****
  (* eval each lexp to a value *)
  and lexps2values (venv,d,lexps,cont) =
!     let val _ = 1
  	fun f [] (vals,ltys) = cont (rev vals, rev ltys)
  	  | f (lexp::lexps) (vals,ltys) =
--- 353,361 ----
  (* eval each lexp to a value *)
  and lexps2values (venv,d,lexps,cont) =
!     let val _ = debugmsg ">>lexps2values"
! 	val _ = if !debugging 
! 		then ignore(map PPLexp.printLexp lexps) 
! 		else ()
! 	val _ = 1
  	fun f [] (vals,ltys) = cont (rev vals, rev ltys)
  	  | f (lexp::lexps) (vals,ltys) =
***************
*** 358,363 ****
  		    fn (v, lty) =>
  		    f lexps (v::vals, lty::ltys))
      in
! 	f lexps ([], [])
      end
  
--- 363,370 ----
  		    fn (v, lty) =>
  		    f lexps (v::vals, lty::ltys))
+ 	val v = f lexps ([], [])
+ 	val _ = debugmsg "<<lexp2values"
      in
! 	v
      end
  


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