CVS: sml-dist/src/compiler/TopLevel/main printhooks.sml, 1.2, 1.2.20.1

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

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

Index: printhooks.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/TopLevel/main/printhooks.sml,v
retrieving revision 1.2
retrieving revision 1.2.20.1
diff -C2 -d -r1.2 -r1.2.20.1
*** printhooks.sml	19 Jul 2001 18:59:36 -0000	1.2
--- printhooks.sml	28 Aug 2006 05:12:11 -0000	1.2.20.1
***************
*** 3,13 ****
   * (C) 2001 Lucent Technologies, Bell Labs
   *)
! structure PrintHooks : sig
      (* all output goes to Control.Print.out *)
      val prAbsyn : StaticEnv.staticEnv -> Absyn.dec -> unit
! end = struct
!     fun prAbsyn env d  = 
! 	PrettyPrint.with_pp
! 	    (ErrorMsg.defaultConsumer())
! 	    (fn ppstrm => PPAbsyn.ppDec(env,NONE) ppstrm (d,200))
! end
--- 3,17 ----
   * (C) 2001 Lucent Technologies, Bell Labs
   *)
! structure PrintHooks :
!   sig
      (* all output goes to Control.Print.out *)
      val prAbsyn : StaticEnv.staticEnv -> Absyn.dec -> unit
!   end = 
! 
! struct
! 
!    fun prAbsyn env d  = 
! 	PrettyPrintNew.with_default_pp
!           (fn ppstrm => PPAbsyn.ppDec(env,NONE) ppstrm (d,200))
! 
! end (* structure PrintHooks *)


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