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

svn: r12485

Browse Source
This commit is contained in:
Eli Barzilay 2008-11-18 12:01:46 +00:00
parent 11a9c3c929
commit be97f1db72
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/status-web-root/servlets/status.ss
View File

@ -20,7 +20,7 @@
(get-preference (string->symbol user) (lambda () #f) #f users-file)))) (get-preference (string->symbol user) (lambda () #f) #f users-file))))
(define (clean-str s) (define (clean-str s)
(regexp-replace #rx" *$" (regexp-replace #rx"^ *" s "") "")) (regexp-replace #rx" +$" (regexp-replace #rx"^ +" s "") ""))
(define (aget alist key) (define (aget alist key)
(cond [(assq key alist) => cdr] [else #f])) (cond [(assq key alist) => cdr] [else #f]))