Mercurial > urweb
diff src/monoize.sml @ 118:7207f794b916
Serving pages with links
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Sun, 13 Jul 2008 15:47:18 -0400 |
| parents | ff13d390ec60 |
| children | 6230bdd122e7 |
line wrap: on
line diff
--- a/src/monoize.sml Sun Jul 13 15:44:00 2008 -0400 +++ b/src/monoize.sml Sun Jul 13 15:47:18 2008 -0400 @@ -81,7 +81,13 @@ fun attrifyExp env (e, tAll as (t, loc)) = case #1 e of - L'.EClosure (fnam, args) => + L'.EClosure (fnam, [(L'.ERecord [], _)]) => + let + val (_, _, _, s) = Env.lookupENamed env fnam + in + (L'.EPrim (Prim.String s), loc) + end + | L'.EClosure (fnam, args) => let val (_, ft, _, s) = Env.lookupENamed env fnam val ft = monoType env ft