Mercurial > urweb

diff src/core_untangle.sml @ 802:ef6de4075dc1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix a Core_untangle bug that missed closure variable references; XHTMLize
author Adam Chlipala <adamc@hcoop.net>
date Sat, 16 May 2009 12:41:33 -0400
parents 23a88d81a1b5
children 2a50da66ffd8
line wrap: on
line diff
--- a/src/core_untangle.sml	Thu May 14 18:13:09 2009 -0400
+++ b/src/core_untangle.sml	Sat May 16 12:41:33 2009 -0400
@@ -44,6 +44,11 @@
             IS.add (s, n)
         else
             s
+      | EClosure (n, _) =>
+        if IS.member (thisGroup, n) then
+            IS.add (s, n)
+        else
+            s
 
       | _ => s