From 9223032f5025f8bc4820dfdfb081be1c7fcd1c4e Mon Sep 17 00:00:00 2001 From: Sergey Poznyakoff Date: Fri, 10 May 2019 08:02:03 +0300 Subject: Support for Guile 2.2 * NEWS: Update. * README: Update. * configure.ac: Drop support for Guile versions prior to 2.2 and Mailutils prior to 3.0 * modules/guile/getpw.scm: Use inet-ntop instead of the withdrawn inet-ntoa. * modules/guile/guile.c: Rewrite for Guile 2.2 --- modules/guile/getpw.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'modules/guile/getpw.scm') diff --git a/modules/guile/getpw.scm b/modules/guile/getpw.scm index 168badb..2a8bc39 100644 --- a/modules/guile/getpw.scm +++ b/modules/guile/getpw.scm @@ -1,5 +1,5 @@ ;;;; This file is part of Smap. -;;;; Copyright (C) 2010, 2014 Sergey Poznyakoff +;;;; Copyright (C) 2010, 2014, 2019 Sergey Poznyakoff ;;;; ;;;; Smap is free software; you can redistribute it and/or modify ;;;; it under the terms of the GNU General Public License as published by @@ -87,7 +87,7 @@ (let ((src (car rest))) (format (current-error-port) "connect from ~A~%" (if (= (sockaddr:fam src) AF_INET) - (inet-ntoa (sockaddr:addr src)) + (inet-ntop AF_INET (sockaddr:addr src)) "UNIX socket"))) ;; Select appropriate handler and call it (let ((elt (assoc map map-list))) -- cgit v1.2.1