suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

get rid of unused argument

Browse Source 
svn: r12486
This commit is contained in:
Eli Barzilay 2008-11-18 12:05:15 +00:00
parent be97f1db72
commit e0ac6dd80f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/handin-server/status-web-root/servlets/status.ss
View File

@ -207,7 +207,7 @@
(one-status-page user for-handin) (one-status-page user for-handin)
(all-status-page user))) (all-status-page user)))
(define (login-page status for-handin errmsg) (define (login-page for-handin errmsg)
(let* ([request (let* ([request
(send/suspend (send/suspend
(lambda (k) (lambda (k)
@ -238,7 +238,7 @@
(or (equal? pw (car user-data)) (or (equal? pw (car user-data))
(equal? pw (get-conf 'master-password))))) (equal? pw (get-conf 'master-password)))))
(status-page user for-handin)] (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 (define web-counter
(let ([sema (make-semaphore 1)] (let ([sema (make-semaphore 1)]
@ -251,7 +251,7 @@
(define (start initial-request) (define (start initial-request)
(parameterize ([current-session (web-counter)]) (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 interface-version 'v2)
(define name "status") (define name "status")