~ruther/guix-local

cdc701ea48207b16fd181cac3c74172c6db483ed — Danny Milosavljevic 9 years ago 1c797d4
gnu: build: Improve comments.

* gnu/build/file-systems.scm (iso9660-superblock-volume-name):
Add clarifying comment.
1 files changed, 1 insertions(+), 0 deletions(-)

M gnu/build/file-systems.scm
M gnu/build/file-systems.scm => gnu/build/file-systems.scm +1 -0
@@ 283,6 283,7 @@ SBLOCK as a bytevector."
(define (iso9660-superblock-volume-name sblock)
  "Return the volume name of SBLOCK as a string.  The volume name is an ASCII
string.  Trailing spaces are trimmed."
  ;; Note: Valid characters are of the set "[0-9][A-Z]_" (ECMA-119 Appendix A)
  (string-trim-right (latin1->string (sub-bytevector sblock 40 32)
                                     (lambda (c) #f)) #\space))