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/ml-nlffigen/pp.sml
ViewVC logotype

Diff of /sml/trunk/src/ml-nlffigen/pp.sml

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

revision 1095, Tue Feb 26 13:20:40 2002 UTC revision 1096, Tue Feb 26 16:59:02 2002 UTC
# Line 21  Line 21 
21      fun Type t = CON (t, [])      fun Type t = CON (t, [])
22      fun St tag = Type (concat ["ST_", tag, ".tag"])      fun St tag = Type (concat ["ST_", tag, ".tag"])
23      fun Un tag = Type (concat ["UT_", tag, ".tag"])      fun Un tag = Type (concat ["UT_", tag, ".tag"])
24        fun En tag = Type (concat ["ET_", tag, ".tag"])
25    
26      datatype tcontext = C_STAR | C_ARROW | C_COMMA | C_CON      datatype tcontext = C_STAR | C_ARROW | C_COMMA | C_CON
27    

Legend:
Removed from v.1095  
changed lines
  Added in v.1096

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