CVS: sml-dist/src/compiler/Basics/print pp-init-new.sml, 1.1.2.2, 1.1.2.3

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

Modified Files:
      Tag: primop-branch-2
	pp-init-new.sml 
Log Message:
broke ltykernel into lty and ltykernel, improved pplty

Index: pp-init-new.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/Basics/print/Attic/pp-init-new.sml,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -C2 -d -r1.1.2.2 -r1.1.2.3
*** pp-init-new.sml	6 Aug 2006 06:05:08 -0000	1.1.2.2
--- pp-init-new.sml	11 Aug 2006 20:42:22 -0000	1.1.2.3
***************
*** 76,80 ****
        let val l = ref ([] : string list)
            fun attach s = l := s :: !l
!           val device = {consumer = attach, linewidth = (fn _ => wid), flush = fn()=>()}
         in with_pp device
              (fn ppStrm => ppFn ppStrm obj);
--- 76,81 ----
        let val l = ref ([] : string list)
            fun attach s = l := s :: !l
!           val device = {consumer = attach, linewidth = (fn _ => wid),
!                         flush = fn()=>()}
         in with_pp device
              (fn ppStrm => ppFn ppStrm obj);


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