;; -*- scheme -*- -p 
#|
(proxy! #:content-type 
	(lambda (ct) 
		(if (regexp-match #px"^application/.+xml.*$" ct)
		    "text/xml"
		    ct)))

;;|#
(require scheme/string
         "../planet.ss")
(planet! ($uri))