diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-08-03 17:57:47 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-08-03 17:57:47 -0400 |
commit | 3e65e1558de55a1a47a62690b48159d92a4ed072 (patch) | |
tree | 57096304282d20c6a741d75fbeeedcbba1275a81 /src/mono.sml | |
parent | 289b94cdcffed0874ac10b38d69366d8a43057cf (diff) |
FFI datatypes
Diffstat (limited to 'src/mono.sml')
-rw-r--r-- | src/mono.sml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/mono.sml b/src/mono.sml index f8c7dbfe..2c55721a 100644 --- a/src/mono.sml +++ b/src/mono.sml @@ -39,7 +39,7 @@ withtype typ = typ' located datatype patCon = PConVar of int - | PConFfi of string * string + | PConFfi of {mod : string, datatyp : string, con : string} datatype pat' = PWild @@ -54,7 +54,7 @@ datatype exp' = EPrim of Prim.t | ERel of int | ENamed of int - | ECon of int * exp option + | ECon of patCon * exp option | EFfi of string * string | EFfiApp of string * string * exp list | EApp of exp * exp |