From ce2b20f67e434052f1b08c33e00f92a590c09c31 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Thu, 23 May 2019 08:53:27 -0700
Subject: [PATCH] don't use locale

---
 quad/quadwriter/core.rkt | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/quad/quadwriter/core.rkt b/quad/quadwriter/core.rkt
index e2b84605..acc975e0 100644
--- a/quad/quadwriter/core.rkt
+++ b/quad/quadwriter/core.rkt
@@ -574,9 +574,7 @@
                     [_ el])) x))
 
 (require racket/contract sugar/coerce pitfall/page)
-(define default-page-size (case (current-locale)
-                            [(us) "letter"]
-                            [else "a4"]))
+(define default-page-size "letter")
 (define default-page-orientation "tall")
 (define/contract (render-pdf qx-arg pdf-path-arg
                              #:replace [replace? #t])