Oops, the magic list has fixed strings, not regexps

This commit is contained in:
Eli Barzilay 2010-09-20 15:39:25 -04:00
parent 7defa43ced
commit 4117dfcc38

View File

@ -282,7 +282,8 @@
(parameterize ([current-directory submission-dir])
(define magics '(#"WXME"
#"<<<MULTI-SUBMISSION-FILE>>>"
#"#reader(lib\"read.(?:rkt|ss)\"\"wxme\")WXME"))
#"#reader(lib\"read.ss\"\"wxme\")WXME"
#"#reader(lib\"read.rkt\"\"wxme\")WXME"))
(define mlen (apply max (map bytes-length magics)))
(define file
;; find the newest wxme file