CVS: sml-dist/src/compiler/FLINT/kernel ltykernel.sml, 1.18.12.10, 1.18.12.11

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

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

Index: ltykernel.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/FLINT/kernel/ltykernel.sml,v
retrieving revision 1.18.12.10
retrieving revision 1.18.12.11
diff -C2 -d -r1.18.12.10 -r1.18.12.11
*** ltykernel.sml	3 Aug 2006 03:11:32 -0000	1.18.12.10
--- ltykernel.sml	6 Aug 2006 06:05:09 -0000	1.18.12.11
***************
*** 888,894 ****
  	    (case (tc_outX tycEnv) of
  		 TC_PRIM(ptyc) => PT.pt_arity ptyc
! 	       | TC_FN(params, _) =>
! 		 (print "printParamArgs TC_FN \n"; 
! 		  length params)
  	       | (TC_APP(tc, _)) => 
  		 (case (tc_outX tc)
--- 888,892 ----
  	    (case (tc_outX tycEnv) of
  		 TC_PRIM(ptyc) => PT.pt_arity ptyc
! 	       | TC_FN(params, _) => length params
  	       | (TC_APP(tc, _)) => 
  		 (case (tc_outX tc)


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