Mercurial > urweb

diff src/css.sml @ 1663:0577be31a435

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
First part of changes to avoid depending on C function call argument order of evaluation (omitting normal Ur function calls, so far)
author Adam Chlipala <adam@chlipala.net>
date Sat, 07 Jan 2012 15:56:22 -0500
parents ca3b73a7b4d0
children a1380fc15cb5
line wrap: on
line diff
--- a/src/css.sml	Sat Jan 07 11:01:21 2012 -0500
+++ b/src/css.sml	Sat Jan 07 15:56:22 2012 -0500
@@ -138,7 +138,7 @@
                       | 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 (