From f4f9d177f0a43f6a846414d34b6839a1b9b3319b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Mon, 24 Jun 2019 15:10:13 +0200 Subject: 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'. --- module/system/repl/server.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'module/system/repl/server.scm') 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) -- cgit v1.2.1