CVS: sml-dist/src/compiler/Semant/pickle unpickmod-new.sml, 1.24.4.5, 1.24.4.6

David MacQueen <[email protected]> Wed, 23 Aug 2006 16:44:20 -0700
Newsgroups gmane.comp.lang.sml.smlnj.commits
Message-ID <[email protected]>
Update of /cvsroot/smlnj/sml-dist/src/compiler/Semant/pickle
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv811/src/compiler/Semant/pickle

Modified Files:
      Tag: primop-branch-2
	unpickmod-new.sml 
Log Message:
debugging kind check error

Index: unpickmod-new.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/Semant/pickle/unpickmod-new.sml,v
retrieving revision 1.24.4.5
retrieving revision 1.24.4.6
diff -C2 -d -r1.24.4.5 -r1.24.4.6
*** unpickmod-new.sml	11 Aug 2006 20:42:24 -0000	1.24.4.5
--- unpickmod-new.sml	23 Aug 2006 23:44:18 -0000	1.24.4.6
***************
*** 247,254 ****
  
  	fun tkind () = let
! 	    fun tk #"A" = LD.tkc_mono
! 	      | tk #"B" = LD.tkc_box
! 	      | tk #"C" = LD.tkc_seq (tkindlist ())
! 	      | tk #"D" = LD.tkc_fun (tkindlist (), tkind ())
  	      | tk _ = raise Format
  	in
--- 247,254 ----
  
  	fun tkind () = let
! 	    fun tk #"A" = LT.tkc_mono
! 	      | tk #"B" = LT.tkc_box
! 	      | tk #"C" = LT.tkc_seq (tkindlist ())
! 	      | tk #"D" = LT.tkc_fun (tkindlist (), tkind ())
  	      | tk _ = raise Format
  	in


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