diff options
Diffstat (limited to 'module/server/macro.scm')
-rw-r--r-- | module/server/macro.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/server/macro.scm b/module/server/macro.scm index 123fc468..e325401a 100644 --- a/module/server/macro.scm +++ b/module/server/macro.scm @@ -10,7 +10,7 @@ (define-public (parse-endpoint-string str) - (let ((rx (make-regexp ":([^/]+)"))) + (let ((rx (make-regexp ":([^/.]+)"))) (let loop ((str str) (string "") (tokens '())) @@ -18,7 +18,7 @@ (if (not m) (values (string-append string str) (reverse tokens)) (loop (match:suffix m) - (string-append string (match:prefix m) "([^/]+)") + (string-append string (match:prefix m) "([^/.]+)") (cons (string->symbol (match:substring m 1)) tokens))))))) |