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

check that the user field is actually there

Browse Source 
svn: r16264
This commit is contained in:
Eli Barzilay 2009-10-07 05:36:00 +00:00
parent e164607633
commit 99dba452fc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/handin-server/web-status-server.ss
View File

@ -26,8 +26,8 @@
(unless (file-exists? users-file) (unless (file-exists? users-file)
(log-line "WARNING: users file missing on startup: ~a" users-file)) (log-line "WARNING: users file missing on startup: ~a" users-file))
(lambda (user) (lambda (user)
(get-preference (string->symbol user) (lambda () #f) 'timestamp (and user (get-preference (string->symbol user) (lambda () #f) 'timestamp
users-file)))) users-file)))))
(define (relativize-path p) (define (relativize-path p)
(path->string (find-relative-path (normalize-path server-dir) p))) (path->string (find-relative-path (normalize-path server-dir) p)))