From 389e355f91537a2deda69dbf128dc98fd10a99d7 Mon Sep 17 00:00:00 2001
From: AAaronson <6002905-Abcdefp@users.noreply.gitlab.com>
Date: Tue, 4 May 2021 10:27:00 +0000
Subject: [PATCH] Added two additional comments for clarity

---
 nongnu/system/build-image.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/nongnu/system/build-image.scm b/nongnu/system/build-image.scm
index ee55ec2..3e4b9e5 100644
--- a/nongnu/system/build-image.scm
+++ b/nongnu/system/build-image.scm
@@ -38,6 +38,7 @@
               (#t (next (read port))))))))
 
 ; Writes channel-list to a tmpfile defined by (tmpnam)
+; 'use-module is assumed to be needed, does not do anything if not used. TODO: remove assumption.
 (define (make-tmp-channel channel-list)
   (let ((tmpath (tmpnam)))
     (call-with-output-file tmpath
@@ -48,6 +49,7 @@
 
 ; Main function called when run at command line.
 ;   Parses "nongnu/system/install.scm" for channel definition
+;     (current-filename) used to locate in same dir as this file
 ;   Creates tmpfile containing channel definition
 ;   Performs a guix pull using tmpfile as channel file
 ;   Deletes tmpfile
@@ -57,7 +59,7 @@
 ;   Returns #t if exit-code is 0, else returns #f
 (define (build-image . args)
   (let* ((image-type 'iso) ; todo: parse args for supported image types
-         (image-label "guix-nonfree-install")
+         (image-label "nonguix-install")
          (channel-define-name '%channels)
          (config-dir (dirname (current-filename)))
          (config-file-name "install.scm")