diff options
| author | Sergey Poznyakoff <gray@gnu.org> | 2019-05-10 08:02:03 +0300 |
|---|---|---|
| committer | Sergey Poznyakoff <gray@gnu.org> | 2019-05-10 08:02:03 +0300 |
| commit | 9223032f5025f8bc4820dfdfb081be1c7fcd1c4e (patch) | |
| tree | e1209bcc78f5a48673c36ea5ad4d820f4ab1bd98 /modules/guile/getpw.scm | |
| parent | 462c760d4605787a6f5baecc87dfee5e8ee5238b (diff) | |
| download | smap-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')
| -rw-r--r-- | modules/guile/getpw.scm | 4 |
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))) |