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

Use ASSQ instead of ASSOC in GET-HEADER

This commit is contained in:
interp 2003-01-24 15:29:30 +00:00
parent 90df993fe2
commit 1dcee71722
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/httpd/surflets/surflets.scm
View File

@ -83,7 +83,7 @@
(release-lock *cache-lock*) (release-lock *cache-lock*)
result)) result))
(define get-header assoc) (define get-header assq)
;; Will be needed when we handle POST requests. ;; Will be needed when we handle POST requests.
(define (get-content-length headers) (define (get-content-length headers)