acc

5 years ago · 7336d8ae79
parent 8e6dab8b5d
commit 7336d8ae79
1 changed files with 1 additions and 1 deletions
--- a/pitfall/pitfall/check-pdf.rkt
+++ b/pitfall/pitfall/check-pdf.rkt
@ -115,7 +115,7 @@
   (parameterize ([current-input-port (open-input-bytes pdf-bs)])
     (for/list ([(idx start) (in-dict obj-locations)]
                [(_ end) (in-dict (cdr obj-locations))])
-       (cons idx (parse-pdf-bytes (peek-bytes (- end start) start)))))
+       (cons idx (car (parse-pdf-bytes (peek-bytes (- end start) start))))))
   < #:key car))

 (define (dict-compare arg1 arg2)