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/cjr.sml | |
| parent | 289b94cdcffed0874ac10b38d69366d8a43057cf (diff) | |
FFI datatypes
Diffstat (limited to 'src/cjr.sml')
| -rw-r--r-- | src/cjr.sml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/cjr.sml b/src/cjr.sml index 4c9cf4c3..d260e8b3 100644 --- a/src/cjr.sml +++ b/src/cjr.sml @@ -40,7 +40,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 @@ -55,7 +55,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 |