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 1010, Wed Jan 9 21:27:48 2002 UTC revision 1011, Thu Jan 10 20:22:04 2002 UTC
# Line 19  Line 19 
19    
20      val Unit = TUPLE []      val Unit = TUPLE []
21      fun Type t = CON (t, [])      fun Type t = CON (t, [])
22      fun St tag = Type ("s_" ^ tag)      fun St tag = Type (concat ["ST_", tag, ".tag"])
23      fun Un tag = Type ("u_" ^ tag)      fun Un tag = Type (concat ["UT_", tag, ".tag"])
24    
25      datatype tcontext = C_STAR | C_ARROW | C_COMMA | C_CON      datatype tcontext = C_STAR | C_ARROW | C_COMMA | C_CON
26    

Legend:
Removed from v.1010  
changed lines
  Added in v.1011

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