Mercurial > urweb

comparison src/monoize.sml @ 1292:a671c986f517

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Support multiple CSS classes for a single tag
author Adam Chlipala <adam@chlipala.net>
date Sun, 05 Sep 2010 12:50:06 -0400
parents 6791454653c5
children acabf3935060
comparison
equal deleted inserted replaced
1291:be6e2cd8d9a9 1292:a671c986f517
2804 val (e2, fm) = monoExp (env, st, fm) e2 2804 val (e2, fm) = monoExp (env, st, fm) e2
2805 in 2805 in
2806 ((L'.ESetval (e1, e2), loc), fm) 2806 ((L'.ESetval (e1, e2), loc), fm)
2807 end 2807 end
2808 2808
2809 | L.EFfiApp ("Basis", "classes", [s1, s2]) =>
2810 let
2811 val (s1, fm) = monoExp (env, st, fm) s1
2812 val (s2, fm) = monoExp (env, st, fm) s2
2813 in
2814 ((L'.EStrcat (s1, (L'.EStrcat ((L'.EPrim (Prim.String " "), loc), s2), loc)), loc),
2815 fm)
2816 end
2817
2809 | L.EApp ( 2818 | L.EApp (
2810 (L.ECApp ( 2819 (L.ECApp (
2811 (L.ECApp ((L.EFfi ("Basis", "cdata"), _), _), _), 2820 (L.ECApp ((L.EFfi ("Basis", "cdata"), _), _), _),
2812 _), _), 2821 _), _),
2813 se) => 2822 se) =>