Fix "guix --help" on Guile 2.0.5.
Reported at <http://linuxfr.org/news/sortie-de-gnu-guix-0-2>. * guix/ui.scm (command-files): Filter the result of `scandir' to make sure only `.scm' files are present.
This commit is contained in:
parent
e8b3afeb92
commit
2b8cf44fd9
|
@ -397,8 +397,14 @@ reporting."
|
|||
(compose (cut string-append <> "/guix/scripts")
|
||||
dirname)))
|
||||
|
||||
(define dot-scm?
|
||||
(cut string-suffix? ".scm" <>))
|
||||
|
||||
;; In Guile 2.0.5 `scandir' would return "." and ".." regardless even though
|
||||
;; they don't match `dot-scm?'. Work around it by doing additional
|
||||
;; filtering.
|
||||
(if directory
|
||||
(scandir directory (cut string-suffix? ".scm" <>))
|
||||
(filter dot-scm? (scandir directory dot-scm?))
|
||||
'()))
|
||||
|
||||
(define (commands)
|
||||
|
|
Loading…
Reference in New Issue