Tweaked prettiness of JS in XML output.

untyped · Jun 20, 2009 · 1250e20 · 1250e20
1 parent 13d005f
commit 1250e20
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/xml/render-internal.ss b/xml/render-internal.ss
@@ -11,7 +11,7 @@
   (cond [(plain:quotable-value? val) (plain:quotable-value->string val)]
         [(javascript? val)           (if pretty?
                                          (javascript->pretty-string val)
-                                         (javascript->string val))]
+                                         (javascript->packed-string val))]
         [else              (error (format "Expected quotable value, received ~s." val))]))
 
 ; symbol -> boolean
@@ -36,7 +36,7 @@
 ; quotable-value -> quotable-value
 (define (quote-javascript-attribute-value val)
   (if (javascript? val)
-      (javascript->string val)
+      (javascript->packed-string val)
       val))
 
 ; string output-stream -> void