summary refs log tree commit diff
diff options
context:
space:
mode:
-rw-r--r--guix/build/utils.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/guix/build/utils.scm b/guix/build/utils.scm
index f7fb7938e5..d17346607f 100644
--- a/guix/build/utils.scm
+++ b/guix/build/utils.scm
@@ -486,7 +486,9 @@ FILE are kept unchanged."
                                                 "patch-shebang: ~a: changing `~a' to `~a'~%"
                                                 file interp bin)
                                         (patch p bin
-                                               (string-append " " arg1 rest)))))
+                                               (if (string-null? arg1)
+                                                   ""
+                                                   (string-append " " arg1 rest))))))
                                 (begin
                                   (format (current-error-port)
                                           "patch-shebang: ~a: warning: no binary for interpreter `~a' found in $PATH~%"