From 40116eb16dc351a94507cb9e41e42516dd711f32 Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@hashcollision.org>
Date: Wed, 7 Nov 2012 15:42:26 -0700
Subject: [PATCH] Lift out empty-tag-shorthand parameter lookup out of the hot
 spot.

---
 collects/xml/private/xexpr.rkt | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/collects/xml/private/xexpr.rkt b/collects/xml/private/xexpr.rkt
index 697f630193..67112dbaa2 100644
--- a/collects/xml/private/xexpr.rkt
+++ b/collects/xml/private/xexpr.rkt
@@ -120,6 +120,7 @@
  [write-xexpr (->* (xexpr/c) (output-port?) void)] )
 
 (define (write-xexpr x [out (current-output-port)])
+  (define short (empty-tag-shorthand))
   (let loop ([x x])
     (cond
       ; Element
@@ -144,11 +145,10 @@
          (display "\"" out))
        ; Write end of opening tag
        (if (and (null? content)
-                (let ([short (empty-tag-shorthand)])
-                  (case short
+                (case short
                     [(always) #t]
                     [(never) #f]
-                    [else (memq (lowercase-symbol name) short)])))
+                    [else (memq (lowercase-symbol name) short)]))
            (display " />" out)
            (begin
              (display ">" out)