From 4053e186315d01c9bbcd0a6985ee8c6d4fb2fa68 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Mon, 10 Jun 2019 13:57:31 -0700
Subject: [PATCH] more lenient keyword value matcher

---
 quad/quadwriter/lang-helper.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/quad/quadwriter/lang-helper.rkt b/quad/quadwriter/lang-helper.rkt
index 294d411c..c90fa876 100644
--- a/quad/quadwriter/lang-helper.rkt
+++ b/quad/quadwriter/lang-helper.rkt
@@ -19,7 +19,7 @@
 (define ((make-read-syntax expander-mod pt-proc) path-string p)
   ;; peel off any lines of format #:keyword val (bounded by newline)
   ;; and turn them into qexpr attrs
-  (define kw-val-pat #px"^(#:\\S+)\\s+(\\S+)\n")
+  (define kw-val-pat #px"^(#:\\S+)\\s+([\\w ]*)\n")
   (define kw-attrs
     (let loop ([acc null])
       (cond