Mercurial > urweb
comparison src/source.sml @ 59:abb2b32c19fb
Subsignatures
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sun, 22 Jun 2008 19:10:38 -0400 |
parents | fd8a81ecd598 |
children | 48b6d2c3df46 |
comparison
equal
deleted
inserted
replaced
58:fd8a81ecd598 | 59:abb2b32c19fb |
---|---|
65 datatype sgn_item' = | 65 datatype sgn_item' = |
66 SgiConAbs of string * kind | 66 SgiConAbs of string * kind |
67 | SgiCon of string * kind option * con | 67 | SgiCon of string * kind option * con |
68 | SgiVal of string * con | 68 | SgiVal of string * con |
69 | SgiStr of string * sgn | 69 | SgiStr of string * sgn |
70 | SgiSgn of string * sgn | |
70 | SgiInclude of sgn | 71 | SgiInclude of sgn |
71 | 72 |
72 and sgn' = | 73 and sgn' = |
73 SgnConst of sgn_item list | 74 SgnConst of sgn_item list |
74 | SgnVar of string | 75 | SgnVar of string |
75 | SgnFun of string * sgn * sgn | 76 | SgnFun of string * sgn * sgn |
76 | SgnWhere of sgn * string * con | 77 | SgnWhere of sgn * string * con |
78 | SgnProj of string * string list * string | |
77 | 79 |
78 withtype sgn_item = sgn_item' located | 80 withtype sgn_item = sgn_item' located |
79 and sgn = sgn' located | 81 and sgn = sgn' located |
80 | 82 |
81 datatype exp' = | 83 datatype exp' = |