skip all whitespace

6 years ago · f9a539cf68
parent ce4109b2a5
commit f9a539cf68
1 changed files with 1 additions and 1 deletions
--- 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)