diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2012-01-07 15:56:22 -0500 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2012-01-07 15:56:22 -0500 |
| commit | a1cc396871330fca59e8ab1e463b2a9c7533b166 (patch) | |
| tree | 587292f9b176c383c7b6332cdc30a817e355fe1d /src/css.sml | |
| parent | d68be1854bf01323248dead3adeef7b392f1dd1d (diff) | |
First part of changes to avoid depending on C function call argument order of evaluation (omitting normal Ur function calls, so far)
Diffstat (limited to 'src/css.sml')
| -rw-r--r-- | src/css.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/css.sml b/src/css.sml index 90c0b5dd..07160898 100644 --- a/src/css.sml +++ b/src/css.sml @@ -138,7 +138,7 @@ fun summarize file = | ECon (_, _, _, NONE) => ([], classes) | ECon (_, _, _, SOME e) => exp (e, classes) | EFfi _ => ([], classes) - | EFfiApp (_, _, es) => expList (es, classes) + | EFfiApp (_, _, es) => expList (map #1 es, classes) | EApp ( (EApp ( |