CVS: sml-dist/src/compiler/TopLevel/environ environ.sml, 1.6, 1.6.10.1

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

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

Index: environ.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/TopLevel/environ/environ.sml,v
retrieving revision 1.6
retrieving revision 1.6.10.1
diff -C2 -d -r1.6 -r1.6.10.1
*** environ.sml	13 Aug 2003 18:04:07 -0000	1.6
--- environ.sml	28 Aug 2006 05:12:11 -0000	1.6.10.1
***************
*** 15,18 ****
--- 15,19 ----
        structure DE = DynamicEnv
        structure SY = SymbolicEnv
+       structure PP = PrettyPrintNew
  in
  
***************
*** 194,206 ****
  
  fun describe static (s: symbol) : unit =
!       let open PrettyPrint PPUtil
!        in with_pp (ErrorMsg.defaultConsumer())
! 	   (fn ppstrm =>
! 	    (openHVBox ppstrm (Rel 0);
  	      PPModules.ppBinding ppstrm
  	        (s, SE.look(static,s), static, !Control.Print.printDepth);
! 	      newline ppstrm;
! 	     closeBox ppstrm))
!       end handle SE.Unbound => print (S.name s ^ " not found\n")
  
  val primEnv = PrimEnv.primEnv
--- 195,206 ----
  
  fun describe static (s: symbol) : unit =
!       PP.with_default_pp
! 	  (fn ppstrm =>
! 	    (PP.openHVBox ppstrm (PP.Rel 0);
  	      PPModules.ppBinding ppstrm
  	        (s, SE.look(static,s), static, !Control.Print.printDepth);
! 	      PP.newline ppstrm;
! 	     PP.closeBox ppstrm))
!       handle SE.Unbound => print (S.name s ^ " not found\n")
  
  val primEnv = PrimEnv.primEnv
***************
*** 208,211 ****
  end (* local *)
  end (* structure Environment *)
- 
- 
--- 208,209 ----


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