diff options
author | Andy Wingo <wingo@pobox.com> | 2012-02-21 16:50:55 +0000 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2012-02-21 16:50:55 +0000 |
commit | 4f6e8ba7bcfd3daeb1179bf0be09d7953bf2458f (patch) | |
tree | f5dd1b50975e54f3f816c51ae8ebac407639de54 /module/web/uri.scm | |
parent | 1868309a9e34a04a5b3020e147d0ce029038b290 (diff) | |
download | guile-4f6e8ba7bcfd3daeb1179bf0be09d7953bf2458f.tar.gz |
quick fix the quick fix
Diffstat (limited to 'module/web/uri.scm')
-rw-r--r-- | module/web/uri.scm | 2 |
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 |