From b69ec8e8719bd867fa469db965407d9db3f3b625 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Thu, 4 Apr 2019 10:39:54 -0700 Subject: [PATCH] downcase attr values --- quad/quad/qexpr.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/quad/quad/qexpr.rkt b/quad/quad/qexpr.rkt index 9b4e25e4..4fd6a7c4 100644 --- a/quad/quad/qexpr.rkt +++ b/quad/quad/qexpr.rkt @@ -84,7 +84,7 @@ (match-define (list k v) kv) ;; coerce number strings to actual numbers ;; this misbehaves on a list index like "1." which becomes 1.0 - (hash-set! mheq k (or (string->number v) v))) + (hash-set! mheq k (or (string->number v) (string-downcase v)))) (q #:attrs mheq #:elems (map loop elems))] [(list (? qexpr? elems) ...) (q #:elems (map loop elems))])]