From 8b7f5bc046a838e620ddbb64af895e104509f567 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 1 Jan 2016 10:14:30 -0700 Subject: [PATCH] faster `xexpr->string` --- racket/collects/xml/private/xexpr.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/collects/xml/private/xexpr.rkt b/racket/collects/xml/private/xexpr.rkt index 5dbad64766..940deeee64 100644 --- a/racket/collects/xml/private/xexpr.rkt +++ b/racket/collects/xml/private/xexpr.rkt @@ -78,7 +78,7 @@ ;; xexpr->string : Xexpression -> String (define (xexpr->string xexpr) (let ([port (open-output-string)]) - (write-xml/content (xexpr->xml xexpr) port) + (write-xexpr xexpr port) (get-output-string port))) (define (string->xexpr str)