diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-06-24 15:10:13 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-06-24 15:10:13 +0200 |
| commit | f4f9d177f0a43f6a846414d34b6839a1b9b3319b (patch) | |
| tree | 2a19cb5de05eacc1f649c08b6c29cf1eb1a44e85 /module | |
| parent | f4db000c6081641f6ee611e293239817041bbac8 (diff) | |
Remove references to 'inet-ntoa' and 'inet-aton'.
These procedures were removed in Guile 2.2 by commit
fc7bd367ab4b5027a7f80686b1e229c62e43c90b (May 2011).
* libguile/socket.h (scm_inet_aton, scm_inet_ntoa): Remove.
* module/system/repl/server.scm (make-tcp-server-socket): Use
'inet-pton' instead of 'inet-aton'.
* doc/ref/web.texi (HTTP): Likewise in 'declare-header!' example.
* doc/ref/posix.texi (Network Address Conversion): Remove documentation
of 'inet-ntoa' and 'inet-aton'.
Diffstat (limited to 'module')
| -rw-r--r-- | module/system/repl/server.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/module/system/repl/server.scm b/module/system/repl/server.scm index e6c18962f..d733939c0 100644 --- a/module/system/repl/server.scm +++ b/module/system/repl/server.scm @@ -1,6 +1,6 @@ ;;; Repl server -;; Copyright (C) 2003, 2010, 2011, 2014, 2016 Free Software Foundation, Inc. +;; Copyright (C) 2003, 2010, 2011, 2014, 2016, 2019 Free Software Foundation, Inc. ;; This library is free software; you can redistribute it and/or ;; modify it under the terms of the GNU Lesser General Public @@ -71,7 +71,9 @@ (define* (make-tcp-server-socket #:key (host #f) - (addr (if host (inet-aton host) INADDR_LOOPBACK)) + (addr (if host + (inet-pton AF_INET host) + INADDR_LOOPBACK)) (port 37146)) (let ((sock (socket PF_INET SOCK_STREAM 0))) (setsockopt sock SOL_SOCKET SO_REUSEADDR 1) |