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:
parent
a12ae9a907
commit
f764641396
3
guix.scm
3
guix.scm
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue