CVS: sml-dist/src/compiler/Elaborator/modules evalent.sml, 1.3, 1.3.20.1 sigmatch.sml, 1.6.8.10, 1.6.8.11

Update of /cvsroot/smlnj/sml-dist/src/compiler/Elaborator/modules
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv7721

Modified Files:
      Tag: primop-branch-2
	evalent.sml sigmatch.sml 
Log Message:
debugging printouts

Index: evalent.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/Elaborator/modules/evalent.sml,v
retrieving revision 1.3
retrieving revision 1.3.20.1
diff -C2 -d -r1.3 -r1.3.20.1
*** evalent.sml	20 Aug 2001 19:34:04 -0000	1.3
--- evalent.sml	24 Jul 2006 23:10:58 -0000	1.3.20.1
***************
*** 37,41 ****
  (* debugging *)
  val say = Control_Print.say
! val debugging = ElabDataControl.eedebugging
  fun debugmsg (msg: string) =
      if !debugging then (say msg; say "\n") else ()
--- 37,41 ----
  (* debugging *)
  val say = Control_Print.say
! val debugging = ref true (* ElabDataControl.eedebugging *)
  fun debugmsg (msg: string) =
      if !debugging then (say msg; say "\n") else ()

Index: sigmatch.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/Elaborator/modules/sigmatch.sml,v
retrieving revision 1.6.8.10
retrieving revision 1.6.8.11
diff -C2 -d -r1.6.8.10 -r1.6.8.11
*** sigmatch.sml	18 Jul 2006 14:15:36 -0000	1.6.8.10
--- sigmatch.sml	24 Jul 2006 23:10:58 -0000	1.6.8.11
***************
*** 105,109 ****
  exception BadBinding
  
! val debugging = ElabControl.smdebugging (* ref false *)
  val showsigs = ref false
  
--- 105,109 ----
  exception BadBinding
  
! val debugging = ref true(* ElabControl.smdebugging *) (* ref false *)
  val showsigs = ref false
  
***************
*** 1540,1543 ****
--- 1540,1544 ----
                                    | _ => M.bogusStrEntity 
        val bodyRlzn = EV.evalApp(fctRlzn, argRlzn, depth, epc, rpath, compInfo)
+ 
        val resStr = 
          let val bodyDacc = DA.namedAcc(anonSym,mkv)


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