Better implementation provided by XML now

2010-12-04 07:54:16 -07:00 · 2010-12-04 07:54:16 -07:00 · 83fcd6a8a2
commit 83fcd6a8a2
parent a609c360d7
1 changed files with 0 additions and 4 deletions
--- a/collects/unstable/web.rkt
+++ b/collects/unstable/web.rkt
@ -70,10 +70,6 @@
 (provide/contract
 [write-xexpr (->* [xexpr/c] [output-port?] void?)])

-(define write-xexpr
-  (lambda/parameter (xexpr [output #:param current-output-port])
-    (write-xml/content (xexpr->xml xexpr))))
-
 (provide/contract
 [create-webpage (string? xexpr/c . -> . void?)]
 [create-stylesheet (string? css/c . -> . void?)])