CVS: sml-dist/src/compiler/Elaborator/elaborate elabmod.sml, 1.2.20.6, 1.2.20.7

George Kuan <[email protected]> Sat, 05 Aug 2006 23:05:11 -0700
Newsgroups gmane.comp.lang.sml.smlnj.commits
Message-ID <[email protected]>
Update of /cvsroot/smlnj/sml-dist/src/compiler/Elaborator/elaborate
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv30252/src/compiler/Elaborator/elaborate

Modified Files:
      Tag: primop-branch-2
	elabmod.sml 
Log Message:
hooked up PPPrim and turned off some debugging printouts

Index: elabmod.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/Elaborator/elaborate/elabmod.sml,v
retrieving revision 1.2.20.6
retrieving revision 1.2.20.7
diff -C2 -d -r1.2.20.6 -r1.2.20.7
*** elabmod.sml	31 Jul 2006 18:07:16 -0000	1.2.20.6
--- elabmod.sml	6 Aug 2006 06:05:08 -0000	1.2.20.7
***************
*** 669,673 ****
  			(fn ppstrm => PPAst.ppStrExp (env, NONE) ppstrm (v, 10))  
            val str = LU.lookStr(env,SP.SPATH path,error region)
- 	  val _ = print "lookStr ### \n"
  (*
            val _ = showStr("--elab[VarStr]: str: ",str,env)
--- 669,672 ----
***************
*** 1269,1273 ****
     | OpenDec paths =>
         let val err = error region
- 	   val _ = print "elabDecl0 \n"
             val strs = map (fn s => let val sp = SP.SPATH s
                                      in (sp, LU.lookStr(env0, sp, err))
--- 1268,1271 ----


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