Revert "build/go: Don't use set!"

This causes too many rebuilds.

This reverts commit 0a4b6fd51a.
This commit is contained in:
Efraim Flashner 2023-12-04 13:19:53 +02:00
parent 61cc93e49c
commit 1d2d6aaeaf
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351

View file

@ -4,7 +4,7 @@
;;; Copyright © 2019 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2020 Jack Hill <jackhill@jackhill.us>
;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
;;; Copyright © 2020, 2021, 2023 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2020, 2021 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2021 Sarah Morgensen <iskarian@mgsn.dev>
;;;
;;; This file is part of GNU Guix.
@ -227,10 +227,9 @@ (define (unpack-maybe-strip source dest)
(when (string-null? import-path)
(display "WARNING: The Go import path is unset.\n"))
(let ((dest (string-append (getenv "GOPATH") "/src/"
(if (string-null? unpack-path)
import-path
unpack-path))))
(when (string-null? unpack-path)
(set! unpack-path import-path))
(let ((dest (string-append (getenv "GOPATH") "/src/" unpack-path)))
(mkdir-p dest)
(if (file-is-directory? source)
(copy-recursively source dest #:keep-mtime? #t)