CVS: sml-dist/src/compiler/Elaborator/elaborate elabutil.sml, 1.9.4.4, 1.9.4.5

Update of /cvsroot/smlnj/sml-dist/src/compiler/Elaborator/elaborate
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv3556/Elaborator/elaborate

Modified Files:
      Tag: primop-branch-2
	elabutil.sml 
Log Message:
further primop hacking -- getting close to compile

Index: elabutil.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/Elaborator/elaborate/elabutil.sml,v
retrieving revision 1.9.4.4
retrieving revision 1.9.4.5
diff -C2 -d -r1.9.4.4 -r1.9.4.5
*** elabutil.sml	11 Jul 2006 15:35:49 -0000	1.9.4.4
--- elabutil.sml	11 Jul 2006 23:00:41 -0000	1.9.4.5
***************
*** 418,424 ****
    | pat_to_string _ = "<illegal pattern>"
  
! fun makeAPPpat err (CONpat(d as DATACON{const=false,lazyp,...},t),p) =
        let 
! 	  val p1 = APPpat(d,map VARty t,p) 
         in if lazyp (* LAZY *)
  	  then APPpat(BT.dollarDcon, [], p1)
--- 418,424 ----
    | pat_to_string _ = "<illegal pattern>"
  
! fun makeAPPpat err (CONpat(d as DATACON{const=false,lazyp,...},tvs),p) =
        let 
! 	  val p1 = APPpat(d, tvs, p) 
         in if lazyp (* LAZY *)
  	  then APPpat(BT.dollarDcon, [], p1)



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