From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 23 Nov 2004 18:19:24 +0000 (+0000)
Subject: Don't pass request object to authenticator.
X-Git-Tag: 20090517-FFI~1440
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=65695a18d55ca49d6773d5d78cbd0525bed4d52d;p=mit-scheme.git

Don't pass request object to authenticator.
---

diff --git a/v7/src/ssp/mod-lisp.scm b/v7/src/ssp/mod-lisp.scm
index 34b3fed2d..9649533e7 100644
--- a/v7/src/ssp/mod-lisp.scm
+++ b/v7/src/ssp/mod-lisp.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: mod-lisp.scm,v 1.18 2004/11/23 18:00:22 cph Exp $
+$Id: mod-lisp.scm,v 1.19 2004/11/23 18:19:24 cph Exp $
 
 Copyright 2003,2004 Massachusetts Institute of Technology
 
@@ -805,11 +805,11 @@ USA.
 
 (define (http-request-user-name)
   (if *current-authenticator*
-      (*current-authenticator* *current-request*)
-      (http-authenticator:basic *current-request*)))
+      (*current-authenticator*)
+      (http-authenticator:basic)))
 
-(define (http-authenticator:basic message)
-  (let ((auth (http-message-header message 'authorization)))
+(define (http-authenticator:basic)
+  (let ((auth (http-request-header 'authorization)))
     (and auth
 	 (cond ((string-prefix? "Basic " auth)
 		(decode-basic-auth-header auth 6 (string-length auth)))