01/05: squash! gnu: zig: Build reproducibly.

[guix-commits]

hako pushed a commit to branch wip-zig-bootstrap
in repository guix.

commit e09f06e0c5d259d1c9f7ad4fe36af20c81deba6c
Author: Hilton Chain <hako@ultrarare.space>
AuthorDate: Tue Dec 31 08:57:05 2024 +0800

    squash! gnu: zig: Build reproducibly.
    
    Change-Id: I646a231d99ec8a99baf85aad296c3eebd7a4ab0d
---
 guix/build/zig-utils.scm | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/guix/build/zig-utils.scm b/guix/build/zig-utils.scm
index 0da14f1873..67480df458 100644
--- a/guix/build/zig-utils.scm
+++ b/guix/build/zig-utils.scm
@@ -47,17 +47,18 @@
   ;; Libc paths for target.
   (let ((libc (assoc-ref inputs (if target "cross-libc" "libc")))
         (port (open-file "/tmp/guix-zig-libc-paths" "w" #:encoding "utf8")))
-    (display
-     (string-append "\
+    (when libc
+      (display
+       (string-append "\
 include_dir=" libc "/include
 sys_include_dir=" libc "/include
 crt_dir=" libc "/lib
 msvc_lib_dir=
 kernel32_lib_dir=
 gcc_dir=")
-     port)
-    (close-port port))
-  (setenv "ZIG_LIBC" "/tmp/guix-zig-libc-paths"))
+       port)
+      (setenv "ZIG_LIBC" "/tmp/guix-zig-libc-paths"))
+    (close-port port)))
 
 (define (zig-target target)
   (cond