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_opt.sml | |
| parent | 289b94cdcffed0874ac10b38d69366d8a43057cf (diff) | |
FFI datatypes
Diffstat (limited to 'src/mono_opt.sml')
| -rw-r--r-- | src/mono_opt.sml | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/src/mono_opt.sml b/src/mono_opt.sml index 6fa871ec..6558115c 100644 --- a/src/mono_opt.sml +++ b/src/mono_opt.sml @@ -185,7 +185,6 @@ fun exp e = | EWrite (EFfiApp ("Basis", "urlifyString", [e]), _) => EFfiApp ("Basis", "urlifyString_w", [e]) - | EWrite (ECase (discE, pes, {disc, ...}), loc) => optExp (ECase (discE, map (fn (p, e) => (p, (EWrite e, loc))) pes, |