Add record disclosers.

scheme/lib/url.scm

@@ -39,6 +39,11 @@
   (host server-host)
   (port server-port))
 
+(define-record-discloser :server
+  (lambda (s)
+    (list 'server
+	  (server->string s))))
+
 ;;; Parse a URI path (a list representing a path, not a string!) into
 ;;; a server record. Default values are taken from the server
 ;;; record DEFAULT except for the host. Returns a server record if
@@ -115,6 +120,11 @@
   (search http-url-search)
   (fragment-identifier http-url-fragment-identifier))
 
+(define-record-discloser :http-url
+  (lambda (url)
+    (list 'http-url
+	  (http-url->string url))))
+
 ;;; The URI parser (parse-uri in uri.scm) maps a string to four parts:
 ;;; <scheme> : <path> ? <search> # <frag-id> <scheme>, <search>, and
 ;;; <frag-id> are strings; <path> is a non-empty string list -- the