me
/
guix
Archived
1
0
Fork 0
Code

gnu: build: Improve comments. 

* gnu/build/file-systems.scm (iso9660-superblock-volume-name):
Add clarifying comment.
master
Danny Milosavljevic 2017-05-31 19:38:49 +02:00
parent 1c797d4bfb
commit cdc701ea48
No known key found for this signature in database
GPG Key ID: E71A35542C30BAA5
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
gnu/build/file-systems.scm
View File

@ -283,6 +283,7 @@ SBLOCK as a bytevector."
(define (iso9660-superblock-volume-name sblock) (define (iso9660-superblock-volume-name sblock)
"Return the volume name of SBLOCK as a string. The volume name is an ASCII "Return the volume name of SBLOCK as a string. The volume name is an ASCII
string. Trailing spaces are trimmed." 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) (string-trim-right (latin1->string (sub-bytevector sblock 40 32)
(lambda (c) #f)) #\space)) (lambda (c) #f)) #\space))