suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

faster xexpr->string

Browse Source
This commit is contained in:
Matthew Flatt 2016-01-01 10:14:30 -07:00
parent 923b5864a5
commit 8b7f5bc046
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/collects/xml/private/xexpr.rkt
View File

@ -78,7 +78,7 @@
;; xexpr->string : Xexpression -> String ;; xexpr->string : Xexpression -> String
(define (xexpr->string xexpr) (define (xexpr->string xexpr)
(let ([port (open-output-string)]) (let ([port (open-output-string)])
(write-xml/content (xexpr->xml xexpr) port) (write-xexpr xexpr port)
(get-output-string port))) (get-output-string port)))
(define (string->xexpr str) (define (string->xexpr str)