~ chicken-core (chicken-5) 0e9a6e59b5c199e463491796dba383dca3882a19

commit 0e9a6e59b5c199e463491796dba383dca3882a19
Author:     Peter Bex <peter.bex@xs4all.nl>
AuthorDate: Wed Aug 15 21:41:43 2012 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sun Aug 19 02:06:34 2012 +0200

    Trivial bugfix for irregex to make it accept URLs containing paths having multiple components (upstream changesets aa623d0cbdec and 85cbe4d1565c)

diff --git a/irregex-core.scm b/irregex-core.scm
index 5b3e80ad..25a9c1c5 100644
--- a/irregex-core.scm
+++ b/irregex-core.scm
@@ -2299,7 +2299,7 @@
                  (or domain/common ipv4-address) ;; (seq "[" ipv6-address "]")
                  (? ":" (+ numeric)) ;; port
                  ;; path
-                 (? "/" (* url-char)
+                 (? "/" (* (or url-char "/"))
                     (? "?" (* url-char))                      ;; query
                     (? "#" (? (* url-char) url-final-char)) ;; fragment
                     )))