From 8d3e603558d3ca1bb71c2d7d4c0e417ddd90a6a9 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Wed, 1 May 2019 13:37:55 -0700 Subject: [PATCH] add locale parameter --- quad/quadwriter/param.rkt | 1 + 1 file changed, 1 insertion(+) diff --git a/quad/quadwriter/param.rkt b/quad/quadwriter/param.rkt index 70d626bc..b5714693 100644 --- a/quad/quadwriter/param.rkt +++ b/quad/quadwriter/param.rkt @@ -2,6 +2,7 @@ (provide (all-defined-out)) (define current-doc (make-parameter #f)) (define current-pdf (make-parameter #f)) +(define current-locale (make-parameter 'us)) (define draw-debug? (make-parameter #f)) (define draw-debug-line? (make-parameter #t))