08/44: build-system: texlive: Only build packages in the current directory.

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository guix.

commit 1678be097bb3f6403bbc4ab8414f3e7f02c70e44
Author: Ricardo Wurmus <address@hidden>
Date:   Sun Jul 2 15:19:47 2017 +0200

    build-system: texlive: Only build packages in the current directory.
    
    * guix/build/texlive-build-system.scm (build): Use scandir instead of
    find-files.
---
 guix/build/texlive-build-system.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/guix/build/texlive-build-system.scm 
b/guix/build/texlive-build-system.scm
index c1fd9fd..7b10198 100644
--- a/guix/build/texlive-build-system.scm
+++ b/guix/build/texlive-build-system.scm
@@ -20,6 +20,7 @@
   #:use-module ((guix build gnu-build-system) #:prefix gnu:)
   #:use-module (guix build utils)
   #:use-module (ice-9 match)
+  #:use-module (ice-9 ftw)
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-26)
   #:export (%standard-phases
@@ -62,7 +63,7 @@
   (mkdir "build")
   (every (cut compile-with-latex tex-format <>)
          (if build-targets build-targets
-             (find-files "." "\\.ins$"))))
+             (scandir "." (cut string-suffix? ".ins" <>)))))
 
 (define* (install #:key outputs tex-directory #:allow-other-keys)
   (let* ((out (assoc-ref outputs "out"))