CVS: sml-dist/src/compiler/ElabData/statenv lookup.sml, 1.2, 1.2.20.1

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

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

Index: lookup.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/ElabData/statenv/lookup.sml,v
retrieving revision 1.2
retrieving revision 1.2.20.1
diff -C2 -d -r1.2 -r1.2.20.1
*** lookup.sml	20 Aug 2001 19:34:03 -0000	1.2
--- lookup.sml	18 Jul 2006 19:46:35 -0000	1.2.20.1
***************
*** 106,109 ****
--- 106,110 ----
    let fun outStr(B.STRbind str) = str
          | outStr _ = bug "lookStr"
+       val _ = print "### lookStr\n"
     in lookGen(env,path,outStr,MU.getStrPath,bogusSTR,err)
    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