CVS: sml-dist/src/compiler/Elaborator/types overload.sml, 1.4, 1.4.4.1 typecheck.sml, 1.8.4.6, 1.8.4.7

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

Modified Files:
      Tag: primop-branch-2
	overload.sml typecheck.sml 
Log Message:
switched all pretty printing to use PrettyPrintNew

Index: overload.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/Elaborator/types/overload.sml,v
retrieving revision 1.4
retrieving revision 1.4.4.1
diff -C2 -d -r1.4 -r1.4.4.1
*** overload.sml	8 Nov 2004 23:03:24 -0000	1.4
--- overload.sml	28 Aug 2006 05:12:10 -0000	1.4.4.1
***************
*** 16,19 ****
--- 16,21 ----
    structure TU = TypesUtil
    structure ED = ElabDebug
+   structure PP = PrettyPrintNew
+   structure PU = PPUtilNew
    open VarCon Types
  in
***************
*** 134,142 ****
  			     (fn ppstrm =>
  				 (PPType.resetPPType();
! 				  PrettyPrint.newline ppstrm;
! 				  PrettyPrint.string ppstrm "symbol: "; 
! 				  PPUtil.ppSym ppstrm name;
! 				  PrettyPrint.newline ppstrm;
! 				  PrettyPrint.string ppstrm "type: ";
  				  PPType.ppType env ppstrm context));
  			     ())
--- 136,144 ----
  			     (fn ppstrm =>
  				 (PPType.resetPPType();
! 				  PP.newline ppstrm;
! 				  PP.string ppstrm "symbol: "; 
! 				  PU.ppSym ppstrm name;
! 				  PP.newline ppstrm;
! 				  PP.string ppstrm "type: ";
  				  PPType.ppType env ppstrm context));
  			     ())

Index: typecheck.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/Elaborator/types/typecheck.sml,v
retrieving revision 1.8.4.6
retrieving revision 1.8.4.7
diff -C2 -d -r1.8.4.6 -r1.8.4.7
*** typecheck.sml	13 Jul 2006 20:12:25 -0000	1.8.4.6
--- typecheck.sml	28 Aug 2006 05:12:10 -0000	1.8.4.7
***************
*** 20,24 ****
  
  local open Array List Types VarCon BasicTypes TypesUtil Unify Absyn
! 	   ErrorMsg PrettyPrint PPUtil PPType PPAbsyn
  
    structure SE = StaticEnv
--- 20,24 ----
  
  local open Array List Types VarCon BasicTypes TypesUtil Unify Absyn
! 	   ErrorMsg PrettyPrintNew PPUtilNew PPType PPAbsyn
  
    structure SE = StaticEnv
***************
*** 27,31 ****
    structure EU = ElabUtil
    structure ED = ElabDebug
!   structure PP = PrettyPrint
  	  
  in 
--- 27,31 ----
    structure EU = ElabUtil
    structure ED = ElabDebug
!   structure PP = PrettyPrintNew
  	  
  in 


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