From 64e2e8bc8a2749e7a920ef8f8e2970543b1e456b Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Fri, 10 Jun 2005 09:51:18 +0000
Subject: [PATCH] Add record disclosers.

---
 scheme/lib/url.scm | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/scheme/lib/url.scm b/scheme/lib/url.scm
index 92a0042..ae84494 100644
--- a/scheme/lib/url.scm
+++ b/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