diff options
author | Andy Wingo <wingo@pobox.com> | 2019-08-02 15:29:33 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2019-08-02 15:29:33 +0200 |
commit | aad64cf3813ac96a67a7e50fb6aa81fcb6a86f8a (patch) | |
tree | a855812ce5281c24c46cf033fe1c05ea999798b5 /doc/ref/web.texi | |
parent | 478d394fcd8353005ae3268077549bcc4faeecf8 (diff) | |
parent | f4f9d177f0a43f6a846414d34b6839a1b9b3319b (diff) | |
download | guile-aad64cf3813ac96a67a7e50fb6aa81fcb6a86f8a.tar.gz |
Merge from stable-2.2
Diffstat (limited to 'doc/ref/web.texi')
-rw-r--r-- | doc/ref/web.texi | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/doc/ref/web.texi b/doc/ref/web.texi index c8fc488b7..6f39754f0 100644 --- a/doc/ref/web.texi +++ b/doc/ref/web.texi @@ -1,6 +1,6 @@ @c -*-texinfo-*- @c This is part of the GNU Guile Reference Manual. -@c Copyright (C) 2010, 2011, 2012, 2013, 2015, 2018 Free Software Foundation, Inc. +@c Copyright (C) 2010, 2011, 2012, 2013, 2015, 2018, 2019 Free Software Foundation, Inc. @c See the file guile.texi for copying conditions. @node Web @@ -454,11 +454,11 @@ HTTP stack like this: @example (declare-header! "X-Client-Address" (lambda (str) - (inet-aton str)) + (inet-pton AF_INET str)) (lambda (ip) (and (integer? ip) (exact? ip) (<= 0 ip #xffffffff))) (lambda (ip port) - (display (inet-ntoa ip) port))) + (display (inet-ntop AF_INET ip) port))) @end example @deffn {Scheme Procedure} declare-opaque-header! name |