Mercurial > urweb
comparison src/monoize.sml @ 623:588b9d16b00a
Start of kind polymorphism, up to the point where demo/hello elaborates with updated Basis/Top
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Sun, 22 Feb 2009 16:10:25 -0500 |
| parents | 8998114760c1 |
| children | 230654093b51 |
comparison
equal
deleted
inserted
replaced
| 622:d64533157f40 | 623:588b9d16b00a |
|---|---|
| 2181 ((L'.EField (e, monoName env x), loc), fm) | 2181 ((L'.EField (e, monoName env x), loc), fm) |
| 2182 end | 2182 end |
| 2183 | L.EConcat _ => poly () | 2183 | L.EConcat _ => poly () |
| 2184 | L.ECut _ => poly () | 2184 | L.ECut _ => poly () |
| 2185 | L.ECutMulti _ => poly () | 2185 | L.ECutMulti _ => poly () |
| 2186 | L.EFold _ => poly () | |
| 2187 | 2186 |
| 2188 | L.ECase (e, pes, {disc, result}) => | 2187 | L.ECase (e, pes, {disc, result}) => |
| 2189 let | 2188 let |
| 2190 val (e, fm) = monoExp (env, st, fm) e | 2189 val (e, fm) = monoExp (env, st, fm) e |
| 2191 val (pes, fm) = ListUtil.foldlMap | 2190 val (pes, fm) = ListUtil.foldlMap |