CVS: sml-dist/src/compiler/Elaborator/modules sigmatch.sml, 1.6.8.15, 1.6.8.16
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/modules
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv9849/src/compiler/Elaborator/modules
Modified Files:
Tag: primop-branch-2
sigmatch.sml
Log Message:
fixed parser2.sml problem
Index: sigmatch.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/Elaborator/modules/sigmatch.sml,v
retrieving revision 1.6.8.15
retrieving revision 1.6.8.16
diff -C2 -d -r1.6.8.15 -r1.6.8.16
*** sigmatch.sml 28 Aug 2006 22:57:53 -0000 1.6.8.15
--- sigmatch.sml 29 Aug 2006 17:37:38 -0000 1.6.8.16
***************
*** 89,92 ****
--- 89,93 ----
structure MU = ModuleUtil
structure PP = PrettyPrintNew
+ structure PU = PPUtilNew
structure S = Symbol
structure SE = StaticEnv
***************
*** 870,884 ****
(print "###SM: "; print (S.name sym); print "\n";
debugPrint debugging
! ("spectype", PPType.ppType statenv,
! spectyp);
debugPrint debugging
! ("acttyp", PPType.ppType statenv,
! acttyp);
debugPrint debugging
! ("ptvs",
(fn pps =>
! app (fn tv =>
! PPType.ppType statenv pps (T.VARty tv))),
ptvs);
print "\n")
--- 871,893 ----
(print "###SM: "; print (S.name sym); print "\n";
debugPrint debugging
! ("spectype", PPType.ppType statenv,
! spectyp);
debugPrint debugging
! ("acttyp", PPType.ppType statenv,
! acttyp);
debugPrint debugging
! ("ptvs",
(fn pps =>
! PU.ppTuple pps
! (fn pps => (fn tv =>
! PPType.ppType statenv pps (T.VARty tv)))),
ptvs);
+ debugPrint debugging
+ ("btvs",
+ (fn pps =>
+ PU.ppTuple pps
+ (fn pps => (fn tv =>
+ PPType.ppType statenv pps (T.VARty tv)))),
+ btvs);
print "\n")
-------------------------------------------------------------------------
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