fix magic search

svn: r16298
2009-10-12 16:53:04 +00:00 · 2009-10-12 16:53:04 +00:00 · 4773d2cefd
commit 4773d2cefd
parent 1ed92878c6
1 changed files with 4 additions and 2 deletions
--- a/collects/handin-server/main.ss
+++ b/collects/handin-server/main.ss
@ -291,8 +291,10 @@
                     (let ([m (with-input-from-file f
                                (lambda () (read-bytes mlen)))])
                       (ormap (lambda (magic)
-                                (equal? magic
-                                        (subbytes m 0 (bytes-length magic))))
+                                (and (>= (bytes-length m) (bytes-length magic))
+                                     (equal? magic
+                                             (subbytes m 0
+                                                       (bytes-length magic)))))
                              magics))
                     (or (not file)
                         (> (file-or-directory-modify-seconds f) time)))