scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add record discloser for request objects.

This commit is contained in:
sperber 2005-06-10 09:52:00 +00:00
parent 64e2e8bc8a
commit 7d6b83e370
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scheme/httpd/surflets/surflet-request.scm
View File

@ -7,6 +7,11 @@
(request surflet-request-request) (request surflet-request-request)
(input-port surflet-request-input-port)) (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) (define (make-fake-selector request-selector)
(lambda (surflet-request) (lambda (surflet-request)
(request-selector (surflet-request-request surflet-request)))) (request-selector (surflet-request-request surflet-request))))