# HG changeset patch
# User Adam Chlipala <adamc@hcoop.net>
# Date 1215978438 14400
# Node ID 7207f794b916b05839362b5ea93dc6d65963d11c
# Parent  94856a3b4752e80d468dae19242e0f2ad9d56ff3
Serving pages with links

diff -r 94856a3b4752 -r 7207f794b916 src/monoize.sml
--- 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