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