diff --git a/doc/ref/web.texi b/doc/ref/web.texi index e6e594e9f..3e93beab3 100644 --- a/doc/ref/web.texi +++ b/doc/ref/web.texi @@ -209,10 +209,11 @@ access to them. @deffn {Scheme Procedure} build-uri scheme [#:userinfo=@code{#f}] [#:host=@code{#f}] @ [#:port=@code{#f}] [#:path=@code{""}] [#:query=@code{#f}] @ [#:fragment=@code{#f}] [#:validate?=@code{#t}] -Construct a URI object. @var{scheme} should be a symbol, and the rest -of the fields are either strings or @code{#f}. If @var{validate?} is -true, also run some consistency checks to make sure that the constructed -URI is valid. +Construct a URI object. @var{scheme} should be a symbol, @var{port} +either a positive, exact integer or @code{#f}, and the rest of the +fields are either strings or @code{#f}. If @var{validate?} is true, +also run some consistency checks to make sure that the constructed URI +is valid. @end deffn @deffn {Scheme Procedure} uri? x @@ -224,8 +225,8 @@ URI is valid. @deffnx {Scheme Procedure} uri-query uri @deffnx {Scheme Procedure} uri-fragment uri A predicate and field accessors for the URI record type. The URI scheme -will be a symbol, and the rest either strings or @code{#f} if not -present. +will be a symbol, the port either a positive, exact integer or @code{#f}, +and the rest either strings or @code{#f} if not present. @end deffn @deffn {Scheme Procedure} string->uri string diff --git a/module/web/uri.scm b/module/web/uri.scm index fa4297833..6ff00763c 100644 --- a/module/web/uri.scm +++ b/module/web/uri.scm @@ -79,10 +79,11 @@ (define* (build-uri scheme #:key userinfo host port (path "") query fragment (validate? #t)) - "Construct a URI object. SCHEME should be a symbol, and the rest -of the fields are either strings or ‘#f’. If VALIDATE? is -true, also run some consistency checks to make sure that the constructed -URI is valid." + "Construct a URI object. SCHEME should be a symbol, PORT +either a positive, exact integer or ‘#f’, and the rest of the +fields are either strings or ‘#f’. If VALIDATE? is true, +also run some consistency checks to make sure that the constructed URI +is valid." (if validate? (validate-uri scheme userinfo host port path query fragment)) (make-uri scheme userinfo host port path query fragment))