Mercurial > urweb

diff src/cjr.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 31dfab1d4050
children 19ee24bffbc0
line wrap: on
line diff
--- a/src/cjr.sml	Sun Aug 03 11:17:33 2008 -0400
+++ b/src/cjr.sml	Sun Aug 03 12:43:20 2008 -0400
@@ -44,10 +44,10 @@
 
 datatype pat' =
          PWild
-       | PVar of string
+       | PVar of string * typ
        | PPrim of Prim.t
        | PCon of patCon * pat option
-       | PRecord of (string * pat) list
+       | PRecord of (string * pat * typ) list
 
 withtype pat = pat' located
 
@@ -63,7 +63,7 @@
        | ERecord of int * (string * exp) list
        | EField of exp * string
 
-       | ECase of exp * (pat * exp) list * typ
+       | ECase of exp * (pat * exp) list * { disc : typ, result : typ }
 
        | EWrite of exp
        | ESeq of exp * exp