Mercurial > urweb
comparison src/elab.sml @ 445:dfc8c991abd0
Replace 'with' with '++'
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Fri, 31 Oct 2008 09:30:22 -0400 |
parents | b85e6ba56618 |
children | b77863cd0be2 |
comparison
equal
deleted
inserted
replaced
444:f45f23ae20ed | 445:dfc8c991abd0 |
---|---|
106 | ECApp of exp * con | 106 | ECApp of exp * con |
107 | ECAbs of explicitness * string * kind * exp | 107 | ECAbs of explicitness * string * kind * exp |
108 | 108 |
109 | ERecord of (con * exp * con) list | 109 | ERecord of (con * exp * con) list |
110 | EField of exp * con * { field : con, rest : con } | 110 | EField of exp * con * { field : con, rest : con } |
111 | EWith of exp * con * exp * { field : con, rest : con } | 111 | EConcat of exp * con * exp * con |
112 | ECut of exp * con * { field : con, rest : con } | 112 | ECut of exp * con * { field : con, rest : con } |
113 | EFold of kind | 113 | EFold of kind |
114 | 114 |
115 | ECase of exp * (pat * exp) list * { disc : con, result : con } | 115 | ECase of exp * (pat * exp) list * { disc : con, result : con } |
116 | 116 |