From be97f1db72626e11ca2a3f9d546bfadfdd5455b9 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Tue, 18 Nov 2008 12:01:46 +0000 Subject: [PATCH] svn: r12485 --- collects/handin-server/status-web-root/servlets/status.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/handin-server/status-web-root/servlets/status.ss b/collects/handin-server/status-web-root/servlets/status.ss index 7a89f1888b..4fc8d6659b 100644 --- a/collects/handin-server/status-web-root/servlets/status.ss +++ b/collects/handin-server/status-web-root/servlets/status.ss @@ -20,7 +20,7 @@ (get-preference (string->symbol user) (lambda () #f) #f users-file)))) (define (clean-str s) - (regexp-replace #rx" *$" (regexp-replace #rx"^ *" s "") "")) + (regexp-replace #rx" +$" (regexp-replace #rx"^ +" s "") "")) (define (aget alist key) (cond [(assq key alist) => cdr] [else #f]))