distro-build/download-page: strip "{...}" anywhere, not just at start

This commit is contained in:
Matthew Flatt 2013-09-12 06:50:34 -06:00
parent c6bd9b23e0
commit dec1a83e0d

View File

@ -64,7 +64,7 @@
(define sorted-and-split
(map (lambda (s)
(map (lambda (e)
(regexp-replace* #rx"^ *{[^}]*} *"
(regexp-replace* #rx" *{[^}]*} *"
e
""))
(regexp-split #rx" *[|] *" s)))