Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/compiler/ElabData/types/core-basictypes.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/ElabData/types/core-basictypes.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1680, Sat Oct 30 16:02:13 2004 UTC revision 1681, Mon Nov 8 23:03:24 2004 UTC
# Line 34  Line 34 
34      val intTycon : Types.tycon      val intTycon : Types.tycon
35      val intTy : Types.ty      val intTy : Types.ty
36    
     val wordTycon : Types.tycon  
     val wordTy : Types.ty  
   
37      val stringTycon : Types.tycon      val stringTycon : Types.tycon
38      val stringTy : Types.ty      val stringTy : Types.ty
39    
# Line 100  Line 97 
97      end      end
98    
99      val (intTycon, intTy) = pt2tct ("int", 0, T.YES, PTN.ptn_int)      val (intTycon, intTy) = pt2tct ("int", 0, T.YES, PTN.ptn_int)
     val (wordTycon, wordTy) = pt2tct ("word", 0, T.YES, PTN.ptn_int)  
100      val (stringTycon, stringTy) = pt2tct ("string", 0, T.YES, PTN.ptn_string)      val (stringTycon, stringTy) = pt2tct ("string", 0, T.YES, PTN.ptn_string)
101      val (charTycon, charTy) = pt2tct ("char", 0, T.YES, PTN.ptn_int)      val (charTycon, charTy) = pt2tct ("char", 0, T.YES, PTN.ptn_int)
102      val (realTycon, realTy) = pt2tct ("real", 0, T.NO, PTN.ptn_real)      val (realTycon, realTy) = pt2tct ("real", 0, T.NO, PTN.ptn_real)

Legend:
Removed from v.1680  
changed lines
  Added in v.1681

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0