suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix magic search

Browse Source 
svn: r16298
This commit is contained in:
Eli Barzilay 2009-10-12 16:53:04 +00:00
parent 1ed92878c6
commit 4773d2cefd
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/handin-server/main.ss
View File

@ -291,8 +291,10 @@
(let ([m (with-input-from-file f (let ([m (with-input-from-file f
(lambda () (read-bytes mlen)))]) (lambda () (read-bytes mlen)))])
(ormap (lambda (magic) (ormap (lambda (magic)
(and (>= (bytes-length m) (bytes-length magic))
(equal? magic (equal? magic
(subbytes m 0 (bytes-length magic)))) (subbytes m 0
(bytes-length magic)))))
magics)) magics))
(or (not file) (or (not file)
(> (file-or-directory-modify-seconds f) time))) (> (file-or-directory-modify-seconds f) time)))