remove unused binding

svn: r7153
2007-08-23 16:18:38 +00:00 · 2007-08-23 16:18:38 +00:00 · 34765705a5
commit 34765705a5
parent 5628ebcf90
1 changed files with 0 additions and 1 deletions
--- a/collects/handin-server/status-web-root/servlets/status.ss
+++ b/collects/handin-server/status-web-root/servlets/status.ss
@ -124,7 +124,6 @@
        (all-status-page user)
        (download user tag))))

-  (define re:base #rx"^([a-zA-Z]*)([0-9]+)")
  (define (all-status-page user)
    (define (cell  . texts) `(td ([bgcolor "white"]) ,@texts))
    (define (rcell . texts) `(td ([bgcolor "white"] [align "right"]) ,@texts))