diff --git a/guix/build/go-build-system.scm b/guix/build/go-build-system.scm index bba05fd8c9..7f25e05d0d 100644 --- a/guix/build/go-build-system.scm +++ b/guix/build/go-build-system.scm @@ -4,7 +4,7 @@ ;;; Copyright © 2019 Maxim Cournoyer ;;; Copyright © 2020 Jack Hill ;;; Copyright © 2020 Jakub Kądziołka -;;; Copyright © 2020, 2021, 2023 Efraim Flashner +;;; Copyright © 2020, 2021 Efraim Flashner ;;; Copyright © 2021 Sarah Morgensen ;;; ;;; This file is part of GNU Guix. @@ -227,10 +227,9 @@ unpacking." (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)