From 7e84d3eef724ef18f8e1c1b0932b6f74d3ae3e35 Mon Sep 17 00:00:00 2001 From: Maxim Cournoyer Date: Thu, 4 Apr 2019 23:26:04 -0400 Subject: [PATCH] build: go-build-system: Use WHEN for side-effect conditionals. * guix/build/go-build-system.scm (unpack): Replace single branch `if' by `when'. --- guix/build/go-build-system.scm | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/guix/build/go-build-system.scm b/guix/build/go-build-system.scm index 973ee6e251..92a5c86d6c 100644 --- a/guix/build/go-build-system.scm +++ b/guix/build/go-build-system.scm @@ -158,6 +158,10 @@ (define* (unpack #:key source import-path unpack-path #:allow-other-keys) ((display "WARNING: The Go import path is unset.\n"))) (if (string-null? unpack-path) (set! unpack-path import-path)) + (when (string-null? import-path) + ((display "WARNING: The Go import path is unset.\n"))) + (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)