branch master updated: build-system/guile: Expose #:scheme-file-regexp.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

atheia pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 70e33ec  build-system/guile: Expose #:scheme-file-regexp.
70e33ec is described below

commit 70e33ec795b42a497df342950469f65c8406988c
Author: Alex Sassmannshausen <address@hidden>
AuthorDate: Sat May 16 15:32:45 2020 +0200

    build-system/guile: Expose #:scheme-file-regexp.
    
    * guix/build-system/guile.scm (%scheme-file-regexp): New variable.
      (guile-build): Accept #:scheme-file-regexp and pass it on to builder.
---
 guix/build-system/guile.scm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/guix/build-system/guile.scm b/guix/build-system/guile.scm
index 3693014..45e735b 100644
--- a/guix/build-system/guile.scm
+++ b/guix/build-system/guile.scm
@@ -29,6 +29,10 @@
   #:export (%guile-build-system-modules
             guile-build-system))
 
+(define %scheme-file-regexp
+  ;; Regexp to match Scheme files.
+  "\\.(scm|sls)$")
+
 (define %guile-build-system-modules
   ;; Build-side modules imported by default.
   `((guix build guile-build-system)
@@ -80,6 +84,7 @@
                       (system (%current-system))
                       (source-directory ".")
                       not-compiled-file-regexp
+                      (scheme-file-regexp %scheme-file-regexp)
                       (compile-flags %compile-flags)
                       (imported-modules %guile-build-system-modules)
                       (modules '((guix build guile-build-system)
@@ -97,6 +102,7 @@
                                 (source
                                  source))
                     #:source-directory ,source-directory
+                    #:scheme-file-regexp ,scheme-file-regexp
                     #:not-compiled-file-regexp ,not-compiled-file-regexp
                     #:compile-flags ,compile-flags
                     #:phases ,phases