diff src/monoize.sml @ 1754:a1380fc15cb5

Fix bugs in support for 'style' and 'dynStyle'
author Adam Chlipala <adam@chlipala.net>
date Sun, 06 May 2012 15:46:25 -0400
parents acadf9d1214a
children 6bc2a8cb3a67
line wrap: on
line diff
--- a/src/monoize.sml	Sun May 06 15:34:10 2012 -0400
+++ b/src/monoize.sml	Sun May 06 15:46:25 2012 -0400
@@ -3663,16 +3663,20 @@
                          (L.EApp (
                           (L.EApp (
                            (L.EApp (
-                            (L.ECApp (
-                             (L.ECApp (
+                            (L.EApp (
+                             (L.EApp (
                               (L.ECApp (
                                (L.ECApp (
                                 (L.ECApp (
                                  (L.ECApp (
                                   (L.ECApp (
                                    (L.ECApp (
-                                    (L.EFfi ("Basis", "tag"),
-                                     _), _), _), _), _), _), _), _), _), _), _), _), _), _), _), _), _),
+                                    (L.ECApp (
+                                     (L.ECApp (
+                                      (L.EFfi ("Basis", "tag"),
+                                       _), _), _), _), _), _), _), _), _), _), _), _), _), _), _), _), _),
+                              _), _),
+                             _), _),
                             _), _),
                            _), _),
                           attrs), _),