mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 05:18:07 -05:00
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.
This commit is contained in:
parent
14950b83b0
commit
70e33ec795
1 changed files with 6 additions and 0 deletions
|
@ -29,6 +29,10 @@ (define-module (guix build-system guile)
|
|||
#: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 @@ (define* (guile-build store name inputs
|
|||
(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 @@ (define builder
|
|||
(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
|
||||
|
|
Loading…
Reference in a new issue