From 7336d8ae79ad2e3baeff3616705bdfcc0641be61 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 12 Mar 2019 11:20:04 -0700 Subject: [PATCH] acc --- pitfall/pitfall/check-pdf.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pitfall/pitfall/check-pdf.rkt b/pitfall/pitfall/check-pdf.rkt index ec02238e..4439058b 100644 --- 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)