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

type

Browse Source 
svn: r1824
This commit is contained in:
Eli Barzilay 2006-01-13 13:01:32 +00:00
parent c311a402bc
commit 665a396d6b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/handin-server/handin-server.ss
View File

@ -460,7 +460,7 @@
(define (has-password? raw md5 passwords) (define (has-password? raw md5 passwords)
(define (good? passwd) (define (good? passwd)
(define (bad-password msg) (define (bad-password msg)
(LOG "ERROR: ~a -- ~s" log-args passwd) (LOG "ERROR: ~a -- ~s" msg passwd)
(error 'handin "bad password in user database")) (error 'handin "bad password in user database"))
(cond [(string? passwd) (equal? md5 passwd)] (cond [(string? passwd) (equal? md5 passwd)]
[(and (list? passwd) (= 2 (length passwd)) [(and (list? passwd) (= 2 (length passwd))