From f9a539cf680eaf695ffc8e1e192565794d91b412 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Sun, 26 May 2019 10:54:19 -0700
Subject: [PATCH] skip all whitespace

---
 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 fcc2da5c..4f5a3d3d 100644
--- a/quad/quadwriter/lang-helper.rkt
+++ b/quad/quadwriter/lang-helper.rkt
@@ -21,7 +21,7 @@
   (define kw-attrs
     (let loop ([acc null])
       (cond
-        [(regexp-try-match #px"^\n+" p) (loop acc)]
+        [(regexp-try-match #px"^\\s+" p) (loop acc)]
         [(regexp-try-match kw-val-pat p)
          =>
          (λ (m)