Mercurial > urweb

diff src/expl.sml @ 182:d11754ffe252

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Compiled pattern matching to C
author Adam Chlipala <adamc@hcoop.net>
date Sun, 03 Aug 2008 12:43:20 -0400
parents 33d4a8eea484
children 8e9f97508f0d
line wrap: on
line diff
--- a/src/expl.sml	Sun Aug 03 11:17:33 2008 -0400
+++ b/src/expl.sml	Sun Aug 03 12:43:20 2008 -0400
@@ -65,10 +65,10 @@
 
 datatype pat' =
          PWild
-       | PVar of string
+       | PVar of string * con
        | PPrim of Prim.t
        | PCon of patCon * pat option
-       | PRecord of (string * pat) list
+       | PRecord of (string * pat * con) list
 
 withtype pat = pat' located
 
@@ -87,7 +87,7 @@
        | ECut of exp * con * { field : con, rest : con }
        | EFold of kind
 
-       | ECase of exp * (pat * exp) list * con
+       | ECase of exp * (pat * exp) list * { disc : con, result : con }
 
        | EWrite of exp