From b5aafbd2a3b4ec4a76005adb15f57442757d9073 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Mon, 27 May 2019 08:31:53 -0700
Subject: [PATCH] allow bytes

---
 pitfall/pitfall/check-pdf.rkt          | 2 +-
 pitfall/ptest/{alltest.rkt => all.rkt} | 0
 2 files changed, 1 insertion(+), 1 deletion(-)
 rename pitfall/ptest/{alltest.rkt => all.rkt} (100%)

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