Mercurial > urweb
comparison src/expl.sml @ 445:dfc8c991abd0
Replace 'with' with '++'
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Fri, 31 Oct 2008 09:30:22 -0400 |
parents | 075b36dbb1a4 |
children | 89f766f19d5b |
comparison
equal
deleted
inserted
replaced
444:f45f23ae20ed | 445:dfc8c991abd0 |
---|---|
88 | ECApp of exp * con | 88 | ECApp of exp * con |
89 | ECAbs of string * kind * exp | 89 | ECAbs of string * kind * exp |
90 | 90 |
91 | ERecord of (con * exp * con) list | 91 | ERecord of (con * exp * con) list |
92 | EField of exp * con * { field : con, rest : con } | 92 | EField of exp * con * { field : con, rest : con } |
93 | EWith of exp * con * exp * { field : con, rest : con } | 93 | EConcat of exp * con * exp * con |
94 | ECut of exp * con * { field : con, rest : con } | 94 | ECut of exp * con * { field : con, rest : con } |
95 | EFold of kind | 95 | EFold of kind |
96 | 96 |
97 | ECase of exp * (pat * exp) list * { disc : con, result : con } | 97 | ECase of exp * (pat * exp) list * { disc : con, result : con } |
98 | 98 |