diff options
| author | Alex Sassmannshausen <alex@komputilo.eu> | 2020-05-16 15:32:45 +0200 |
|---|---|---|
| committer | Alex Sassmannshausen <alex@komputilo.eu> | 2020-05-18 15:37:23 +0200 |
| commit | 70e33ec795b42a497df342950469f65c8406988c (patch) | |
| tree | 9c2f843958d4d432c15718c79d5cb40b8ea781f5 | |
| parent | 14950b83b0939b5c1aace45d669e89cadac04f71 (diff) | |
| download | guix-70e33ec795b42a497df342950469f65c8406988c.tar.gz | |
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.
| -rw-r--r-- | guix/build-system/guile.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/guix/build-system/guile.scm b/guix/build-system/guile.scm index 3693014694..45e735b987 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 |