Add record discloser for request objects.

2005-06-10 09:52:00 +00:00 · 2005-06-10 09:52:00 +00:00 · 7d6b83e370
parent 64e2e8bc8a
commit 7d6b83e370
1 changed files with 5 additions and 0 deletions
--- a/scheme/httpd/surflets/surflet-request.scm
+++ b/scheme/httpd/surflets/surflet-request.scm
@ -7,6 +7,11 @@
  (request surflet-request-request)
  (input-port surflet-request-input-port))

+(define-record-discloser :surflet-request
+  (lambda (r)
+    (list 'surflet-request
+	  (surflet-request-request r))))
+
 (define (make-fake-selector request-selector)
  (lambda (surflet-request)
    (request-selector (surflet-request-request surflet-request))))