Magic string still has ".ss" in it.

2010-09-20 09:27:48 -04:00 · 2010-09-20 09:27:48 -04:00 · 688b08408f
commit 688b08408f
parent fa7dd9b522
1 changed files with 1 additions and 1 deletions
--- a/collects/handin-server/main.rkt
+++ b/collects/handin-server/main.rkt
@ -282,7 +282,7 @@
  (parameterize ([current-directory submission-dir])
    (define magics '(#"WXME"
                     #"<<<MULTI-SUBMISSION-FILE>>>"
-                     #"#reader(lib\"read.rkt\"\"wxme\")WXME"))
+                     #"#reader(lib\"read.(?:rkt|ss)\"\"wxme\")WXME"))
    (define mlen (apply max (map bytes-length magics)))
    (define file
      ;; find the newest wxme file