allow bytes

6 years ago · b5aafbd2a3
parent 82fd9cf54e
commit b5aafbd2a3
2 changed files with 1 additions and 1 deletions
--- 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))
--- a/pitfall/ptest/alltest.rkt
+++ b/pitfall/ptest/alltest.rkt