CVS: sml-dist/src/compiler/Elaborator/print ppmod.sml, 1.3, 1.3.10.1 ppval.sml, 1.3, 1.3.10.1

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

Modified Files:
      Tag: primop-branch-2
	ppmod.sml ppval.sml 
Log Message:
fixup matchTypes in sigmatch, VALvar in many files

Index: ppmod.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/Elaborator/print/ppmod.sml,v
retrieving revision 1.3
retrieving revision 1.3.10.1
diff -C2 -d -r1.3 -r1.3.10.1
*** ppmod.sml	13 Aug 2003 18:04:07 -0000	1.3
--- ppmod.sml	7 Jul 2006 21:06:09 -0000	1.3.10.1
***************
*** 180,184 ****
  fun ppVariable ppstrm  =
      let val {openHVBox, openHOVBox,closeBox,pps,...} = en_pp ppstrm
! 	fun ppV(V.VALvar{path,access,typ,info},env:StaticEnv.staticEnv) = 
  	      (openHVBox 0;
  	       pps (SP.toString path);
--- 180,184 ----
  fun ppVariable ppstrm  =
      let val {openHVBox, openHOVBox,closeBox,pps,...} = en_pp ppstrm
! 	fun ppV(V.VALvar{path,access,typ,prim},env:StaticEnv.staticEnv) = 
  	      (openHVBox 0;
  	       pps (SP.toString path);

Index: ppval.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/Elaborator/print/ppval.sml,v
retrieving revision 1.3
retrieving revision 1.3.10.1
diff -C2 -d -r1.3 -r1.3.10.1
*** ppval.sml	13 Aug 2003 18:04:07 -0000	1.3
--- ppval.sml	7 Jul 2006 21:06:09 -0000	1.3.10.1
***************
*** 120,124 ****
  	val ppAccess = ppAccess ppstrm
          val ppInfo = ppInfo ii2string ppstrm
! 	fun ppDV(VALvar {access,path,typ,info}) = 
  	     (openHVBox 0;
  	      pps "VALvar";
--- 120,124 ----
  	val ppAccess = ppAccess ppstrm
          val ppInfo = ppInfo ii2string ppstrm
! 	fun ppDV(VALvar {access,path,typ,prim}) = 
  	     (openHVBox 0;
  	      pps "VALvar";
***************
*** 153,157 ****
  fun ppVariable ppstrm  =
      let val {openHVBox, openHOVBox,closeBox,pps,...} = en_pp ppstrm
! 	fun ppV(env:StaticEnv.staticEnv,VALvar{path,access,typ,info}) = 
  	      (openHVBox 0;
  	       pps(SymPath.toString path);
--- 153,157 ----
  fun ppVariable ppstrm  =
      let val {openHVBox, openHOVBox,closeBox,pps,...} = en_pp ppstrm
! 	fun ppV(env:StaticEnv.staticEnv,VALvar{path,access,typ,prim}) = 
  	      (openHVBox 0;
  	       pps(SymPath.toString path);


Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642