guix.scm: Use 'close-pipe' instead of 'close-port'

As it is the proper way to close an opened pipe as explained at
<https://gitlab.com/emacs-guix/emacs-guix/merge_requests/2>.

* guix.scm (git-output): Call 'close-pipe' instead of 'close-port'.
This commit is contained in:
Oleg Pykhalov 2019-01-26 23:23:52 +03:00 committed by Alex Kost
parent a12ae9a907
commit f764641396
1 changed files with 2 additions and 1 deletions

View File

@ -1,6 +1,7 @@
;;; guix.scm --- Guix package for Emacs-Guix
;; Copyright © 2017 Alex Kost <alezost@gmail.com>
;; Copyright © 2019 Oleg Pykhalov <go.wigust@gmail.com>
;; This file is part of Emacs-Guix.
@ -56,7 +57,7 @@ newspace."
(with-directory-excursion %source-dir
(let* ((port (apply open-pipe* OPEN_READ "git" args))
(output (read-string port)))
(close-port port)
(close-pipe port)
(string-trim-right output #\newline))))
(define (current-commit)