CVS: sml-dist/src/compiler/FLINT/trans translate.sml, 1.33.4.17, 1.33.4.18

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

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

Index: translate.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/FLINT/trans/translate.sml,v
retrieving revision 1.33.4.17
retrieving revision 1.33.4.18
diff -C2 -d -r1.33.4.17 -r1.33.4.18
*** translate.sml	28 Jul 2006 22:26:08 -0000	1.33.4.17
--- translate.sml	6 Aug 2006 06:05:09 -0000	1.33.4.18
***************
*** 183,190 ****
  (** This may shadow previous definition of mkv ... this version reports the
      site of introduction of the lvar *)
! fun mkv () = 
!     let val v = mkvN NONE 
!     in (repWarn ("LVar" ^ LambdaVar.lvarName v); v)
!     end 
  
  end (* markexn-local *)
--- 183,187 ----
  (** This may shadow previous definition of mkv ... this version reports the
      site of introduction of the lvar *)
! fun mkv () = mkvN NONE 
  
  end (* markexn-local *)


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