handle default argument correctly

6 years ago · 5351deaa75
parent 443db96929
commit 5351deaa75
1 changed files with 1 additions and 1 deletions
--- 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))