summaryrefslogtreecommitdiff
path: root/module/web/uri.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2012-02-21 16:50:55 +0000
committerAndy Wingo <wingo@pobox.com>2012-02-21 16:50:55 +0000
commit4f6e8ba7bcfd3daeb1179bf0be09d7953bf2458f (patch)
treef5dd1b50975e54f3f816c51ae8ebac407639de54 /module/web/uri.scm
parent1868309a9e34a04a5b3020e147d0ce029038b290 (diff)
downloadguile-4f6e8ba7bcfd3daeb1179bf0be09d7953bf2458f.tar.gz
quick fix the quick fix
Diffstat (limited to 'module/web/uri.scm')
-rw-r--r--module/web/uri.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/module/web/uri.scm b/module/web/uri.scm
index 391a4293b..1eb281380 100644
--- a/module/web/uri.scm
+++ b/module/web/uri.scm
@@ -95,7 +95,7 @@ consistency checks to make sure that the constructed URI is valid."
(define domain-label-regexp
(make-regexp "^[a-zA-Z0-9]([a-zA-Z0-9-]*[a-zA-Z0-9])?$"))
(define top-label-regexp
- (make-regexp "^[a-zA-Z]?([a-zA-Z0-9-]*[a-zA-Z0-9])?$"))
+ (make-regexp "^[a-zA-Z]([a-zA-Z0-9-]*[a-zA-Z0-9])?$"))
(define (valid-host? host)
(cond