summaryrefslogtreecommitdiffabout
path: root/modules/guile/getpw.scm
authorSergey Poznyakoff <gray@gnu.org>2019-05-10 05:02:03 (GMT)
committer Sergey Poznyakoff <gray@gnu.org>2019-05-10 05:02:03 (GMT)
commit9223032f5025f8bc4820dfdfb081be1c7fcd1c4e (patch) (side-by-side diff)
treee1209bcc78f5a48673c36ea5ad4d820f4ab1bd98 /modules/guile/getpw.scm
parent462c760d4605787a6f5baecc87dfee5e8ee5238b (diff)
downloadsmap-9223032f5025f8bc4820dfdfb081be1c7fcd1c4e.tar.gz
smap-9223032f5025f8bc4820dfdfb081be1c7fcd1c4e.tar.bz2
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
Diffstat (limited to 'modules/guile/getpw.scm') (more/less context) (ignore whitespace changes)
-rw-r--r--modules/guile/getpw.scm4
1 files changed, 2 insertions, 2 deletions
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)))

Return to:

Send suggestions and report system problems to the System administrator.