02/04: gnu: opensmtpd: Clarify phase name.

[Tobias Geerinckx-Rice]

nckx pushed a commit to branch master
in repository guix.

commit a1eabab1a3863a5e8e76d59cba451fa4f491726f
Author: Tobias Geerinckx-Rice <address@hidden>
Date:   Fri Jun 8 09:54:30 2018 +0200

    gnu: opensmtpd: Clarify phase name.
    
    * gnu/packages/mail.scm (opensmtpd)[arguments]: Rename
    ‘install-compatibilitymode’ to ‘install-compatibility-links’ and avoid
    needless abbrevs while at it.
---
 gnu/packages/mail.scm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm
index d04fc51..0effaa1 100644
--- a/gnu/packages/mail.scm
+++ b/gnu/packages/mail.scm
@@ -2030,12 +2030,12 @@ transfer protocols.")
          ;; historical interfaces such as sendmail, newaliases or makemap, the
          ;; smtpctl utility can operate in compatibility mode if called with 
the
          ;; historical name.
-         (add-after 'install 'install-compabilitymode
-           (lambda _
-             (let* ((out (assoc-ref %outputs "out"))
+         (add-after 'install 'install-compability-links
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((out  (assoc-ref outputs "out"))
                     (sbin (string-append out "/sbin/")))
-               (for-each (lambda (cmd)
-                           (symlink "smtpctl" (string-append sbin cmd)))
+               (for-each (lambda (command)
+                           (symlink "smtpctl" (string-append sbin command)))
                          '("makemap" "sendmail" "send-mail"
                            "newaliases" "mailq")))
              #t)))))