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/cjrize.sml | |
| parent | 289b94cdcffed0874ac10b38d69366d8a43057cf (diff) | |
FFI datatypes
Diffstat (limited to 'src/cjrize.sml')
| -rw-r--r-- | src/cjrize.sml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/cjrize.sml b/src/cjrize.sml index 8e410f92..eedc594e 100644 --- a/src/cjrize.sml +++ b/src/cjrize.sml @@ -143,7 +143,7 @@ fun cifyExp ((e, loc), sm) = L.EPrim p => ((L'.EPrim p, loc), sm) | L.ERel n => ((L'.ERel n, loc), sm) | L.ENamed n => ((L'.ENamed n, loc), sm) - | L.ECon (n, eo) => + | L.ECon (pc, eo) => let val (eo, sm) = case eo of @@ -155,7 +155,7 @@ fun cifyExp ((e, loc), sm) = (SOME e, sm) end in - ((L'.ECon (n, eo), loc), sm) + ((L'.ECon (cifyPatCon pc, eo), loc), sm) end | L.EFfi mx => ((L'.EFfi mx, loc), sm) | L.EFfiApp (m, x, es) => |