don't use locale

6 years ago · ce2b20f67e
parent 40ab74badf
commit ce2b20f67e
1 changed files with 1 additions and 3 deletions
--- 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])