From e0ac6dd80fbf63bf5ba262549fbb6f0de05a2f2f Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Tue, 18 Nov 2008 12:05:15 +0000 Subject: [PATCH] get rid of unused argument svn: r12486 --- collects/handin-server/status-web-root/servlets/status.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/handin-server/status-web-root/servlets/status.ss b/collects/handin-server/status-web-root/servlets/status.ss index 4fc8d6659b..1f939f9a52 100644 --- a/collects/handin-server/status-web-root/servlets/status.ss +++ b/collects/handin-server/status-web-root/servlets/status.ss @@ -207,7 +207,7 @@ (one-status-page user for-handin) (all-status-page user))) - (define (login-page status for-handin errmsg) + (define (login-page for-handin errmsg) (let* ([request (send/suspend (lambda (k) @@ -238,7 +238,7 @@ (or (equal? pw (car user-data)) (equal? pw (get-conf 'master-password))))) (status-page user for-handin)] - [else (login-page status for-handin "Bad username or password")]))) + [else (login-page for-handin "Bad username or password")]))) (define web-counter (let ([sema (make-semaphore 1)] @@ -251,7 +251,7 @@ (define (start initial-request) (parameterize ([current-session (web-counter)]) - (login-page null (aget (request-bindings initial-request) 'handin) #f))) + (login-page (aget (request-bindings initial-request) 'handin) #f))) (define interface-version 'v2) (define name "status")