comparison src/css.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 0577be31a435
children e15234fbb163
comparison
equal deleted inserted replaced
1753:957168662198 1754:a1380fc15cb5
143 | EApp ( 143 | EApp (
144 (EApp ( 144 (EApp (
145 (EApp ( 145 (EApp (
146 (EApp ( 146 (EApp (
147 (EApp ( 147 (EApp (
148 (ECApp ( 148 (EApp (
149 (ECApp ( 149 (EApp (
150 (ECApp ( 150 (ECApp (
151 (ECApp ( 151 (ECApp (
152 (ECApp ( 152 (ECApp (
153 (ECApp ( 153 (ECApp (
154 (ECApp ( 154 (ECApp (
155 (ECApp ( 155 (ECApp (
156 (EFfi ("Basis", "tag"), 156 (ECApp (
157 _), _), _), _), _), _), _), _), _), _), _), _), _), _), _), _), _), 157 (ECApp (
158 (ECon (_, _, _, SOME (ENamed class, _)), _)), _), 158 (EFfi ("Basis", "tag"),
159 _), _), _), _), _), _), _), _), _), _), _), _), _), _), _), _), _),
160 (ECon (_, _, _, SOME (ENamed class, _)), _)), _),
161 _), _),
162 _), _),
159 _), _), 163 _), _),
160 attrs), _), 164 attrs), _),
161 tag), _), 165 tag), _),
162 xml) => 166 xml) =>
163 let 167 let
183 | EApp ( 187 | EApp (
184 (EApp ( 188 (EApp (
185 (EApp ( 189 (EApp (
186 (EApp ( 190 (EApp (
187 (EApp ( 191 (EApp (
188 (ECApp ( 192 (EApp (
189 (ECApp ( 193 (EApp (
190 (ECApp ( 194 (ECApp (
191 (ECApp ( 195 (ECApp (
192 (ECApp ( 196 (ECApp (
193 (ECApp ( 197 (ECApp (
194 (ECApp ( 198 (ECApp (
195 (ECApp ( 199 (ECApp (
196 (EFfi ("Basis", "tag"), 200 (ECApp (
197 _), _), _), _), _), _), _), _), _), _), _), _), _), _), _), _), _), 201 (ECApp (
202 (EFfi ("Basis", "tag"),
203 _), _), _), _), _), _), _), _), _), _), _), _), _), _), _), _), _),
204 _), _),
205 _), _),
198 _), _), 206 _), _),
199 _), _), 207 _), _),
200 attrs), _), 208 attrs), _),
201 tag), _), 209 tag), _),
202 xml) => 210 xml) =>