CVS: sml-dist/src/compiler/Elaborator/print ppabsyn.sml, 1.5.4.1, 1.5.4.2
David MacQueen <[email protected]> Tue, 29 Aug 2006 10:37:41 -0700
| Newsgroups | gmane.comp.lang.sml.smlnj.commits |
|---|---|
| Message-ID | <[email protected]> |
Update of /cvsroot/smlnj/sml-dist/src/compiler/Elaborator/print
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv9849/src/compiler/Elaborator/print
Modified Files:
Tag: primop-branch-2
ppabsyn.sml
Log Message:
fixed parser2.sml problem
Index: ppabsyn.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/Elaborator/print/ppabsyn.sml,v
retrieving revision 1.5.4.1
retrieving revision 1.5.4.2
diff -C2 -d -r1.5.4.1 -r1.5.4.2
*** ppabsyn.sml 28 Aug 2006 05:12:10 -0000 1.5.4.1
--- ppabsyn.sml 29 Aug 2006 17:37:39 -0000 1.5.4.2
***************
*** 742,754 ****
(openHVBox ppstrm (Rel 0);
pps "struct"; nl_indent ppstrm 2;
! pps "...";
(* ppBinding not yet undefined *)
- (*
ppSequence ppstrm
{sep=newline,
! pr=(fn ppstrm => fn b => ppBinding context ppstrm (b,d-1)),
style=CONSISTENT}
bindings;
- *)
pps "end";
closeBox ppstrm)
--- 742,753 ----
(openHVBox ppstrm (Rel 0);
pps "struct"; nl_indent ppstrm 2;
! (* pps "..."; *)
(* ppBinding not yet undefined *)
ppSequence ppstrm
{sep=newline,
! pr=(fn ppstrm => fn (B.VALbind v) => ppVar ppstrm v | b => pps "#"),
! (*ppBinding context ppstrm (b,d-1)),*)
style=CONSISTENT}
bindings;
pps "end";
closeBox ppstrm)
-------------------------------------------------------------------------
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