Oops, the magic list has fixed strings, not regexps
This commit is contained in:
parent
7defa43ced
commit
4117dfcc38
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user