TakeV
/
guix
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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:
Ludovic Courtès 2013-05-14 13:37:21 +02:00
parent e8b3afeb92
commit 2b8cf44fd9
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
guix/ui.scm
View File

@ -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)