From 5351deaa752cdcaae695065a959e3957686cf341 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Fri, 17 May 2019 19:02:17 -0700
Subject: [PATCH] handle default argument correctly

---
 pitfall/pitfall/pdf.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/pitfall/pitfall/pdf.rkt b/pitfall/pitfall/pdf.rkt
index 1c1fd9ce..c15e05e2 100644
--- a/pitfall/pitfall/pdf.rkt
+++ b/pitfall/pitfall/pdf.rkt
@@ -26,7 +26,7 @@
                   #:height [height-arg #f])
   (match-define (list parsed-width parsed-height)
     (sort
-     (hash-ref page-sizes (string-upcase size) "letter")
+     (hash-ref page-sizes (string-upcase size) (λ () (hash-ref page-sizes "LETTER")))
      ;; for portrait, shorter edge is width
      (if (member orientation '("portrait" "tall")) < >)))
   (define width (or width-arg parsed-width))