infra/nonguix
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added two additional comments for clarity

Browse Source
This commit is contained in:
AAaronson 2021-05-04 10:27:00 +00:00
parent 3a9213e4e6
commit 389e355f91
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
nongnu/system/build-image.scm
View File

@ -38,6 +38,7 @@
(#t (next (read port)))))))) (#t (next (read port))))))))
; Writes channel-list to a tmpfile defined by (tmpnam) ; 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) (define (make-tmp-channel channel-list)
(let ((tmpath (tmpnam))) (let ((tmpath (tmpnam)))
(call-with-output-file tmpath (call-with-output-file tmpath
@ -48,6 +49,7 @@
; Main function called when run at command line. ; Main function called when run at command line.
; Parses "nongnu/system/install.scm" for channel definition ; Parses "nongnu/system/install.scm" for channel definition
; (current-filename) used to locate in same dir as this file
; Creates tmpfile containing channel definition ; Creates tmpfile containing channel definition
; Performs a guix pull using tmpfile as channel file ; Performs a guix pull using tmpfile as channel file
; Deletes tmpfile ; Deletes tmpfile
@ -57,7 +59,7 @@
; Returns #t if exit-code is 0, else returns #f ; Returns #t if exit-code is 0, else returns #f
(define (build-image . args) (define (build-image . args)
(let* ((image-type 'iso) ; todo: parse args for supported image types (let* ((image-type 'iso) ; todo: parse args for supported image types
(image-label "guix-nonfree-install") (image-label "nonguix-install")
(channel-define-name '%channels) (channel-define-name '%channels)
(config-dir (dirname (current-filename))) (config-dir (dirname (current-filename)))
(config-file-name "install.scm") (config-file-name "install.scm")