more lenient keyword value matcher

main
Matthew Butterick 5 years ago
parent 28b58f8c62
commit 4053e18631

@ -19,7 +19,7 @@
(define ((make-read-syntax expander-mod pt-proc) path-string p) (define ((make-read-syntax expander-mod pt-proc) path-string p)
;; peel off any lines of format #:keyword val (bounded by newline) ;; peel off any lines of format #:keyword val (bounded by newline)
;; and turn them into qexpr attrs ;; 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 (define kw-attrs
(let loop ([acc null]) (let loop ([acc null])
(cond (cond

Loading…
Cancel
Save