diff --git a/pitfall/pitfall/check-pdf.rkt b/pitfall/pitfall/check-pdf.rkt index e00cb226..81a78433 100644 --- a/pitfall/pitfall/check-pdf.rkt +++ b/pitfall/pitfall/check-pdf.rkt @@ -99,7 +99,7 @@ tok)) (define (pdf->dict pdf) - (define pdf-bs (file->bytes pdf)) + (define pdf-bs (if (bytes? pdf) pdf (file->bytes pdf))) (define xoff (xref-offset pdf-bs)) (define xref-ip (open-input-bytes (subbytes pdf-bs (+ xoff (bytes-length #"xref\n0"))))) (define ref-count (read xref-ip)) diff --git a/pitfall/ptest/alltest.rkt b/pitfall/ptest/all.rkt similarity index 100% rename from pitfall/ptest/alltest.rkt rename to pitfall/ptest/all.rkt