amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

build-system: guile: Remove unused build defaults.

Browse source 
Defaults should be set in guix/build-system/guile.scm rather than
guix/build/guile-build-system.scm, to disambiguate at first sight
where those defaults are set.

* guix/build-system/guile.scm (guile-build)
  <#:not-compiled-file-regexp>: Add default.

* guix/build/guile-build-system.scm (build): Remove unused keyword
  defaults.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Nicolas Graves 2025-07-08 11:26:04 +02:00 • committed by Ludovic Courtès
parent 8897360fb3
commit 0559a4b547
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 6 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

2
guix/build-system/guile.scm
View file

@ -87,7 +87,7 @@
(search-paths '()) (search-paths '())
(system (%current-system)) (system (%current-system))
(source-directory ".") (source-directory ".")
not-compiled-file-regexp (not-compiled-file-regexp #f)
(scheme-file-regexp %scheme-file-regexp) (scheme-file-regexp %scheme-file-regexp)
(documentation-file-regexp %documentation-file-regexp) (documentation-file-regexp %documentation-file-regexp)
;; FIXME: Turn on parallel building of Guile modules by ;; FIXME: Turn on parallel building of Guile modules by

17
guix/build/guile-build-system.scm
View file

@ -62,10 +62,6 @@ determined."
(substring file 0 dot) (substring file 0 dot)
file))) file)))
(define %scheme-file-regexp
;; Regexp to match Scheme files.
"\\.(scm|sls)$")
(define* (set-locale-path #:key inputs native-inputs (define* (set-locale-path #:key inputs native-inputs
#:allow-other-keys) #:allow-other-keys)
"Set 'GUIX_LOCPATH'." "Set 'GUIX_LOCPATH'."
@ -139,14 +135,11 @@ Raise an error if one of the processes exit with non-zero."
(force-output log-port)) (force-output log-port))
(define* (build #:key outputs inputs native-inputs (define* (build #:key outputs inputs native-inputs
(source-directory ".") source-directory
(compile-flags '()) compile-flags
;; FIXME: Turn on parallel building of Guile modules by parallel-build?
;; default after the non-determinism issues in the Guile byte scheme-file-regexp
;; compiler are resolved (see bug #20272). not-compiled-file-regexp
(parallel-build? #f)
(scheme-file-regexp %scheme-file-regexp)
(not-compiled-file-regexp #f)
target target
#:allow-other-keys) #:allow-other-keys)
"Build files in SOURCE-DIRECTORY that match SCHEME-FILE-REGEXP. Files "Build files in SOURCE-DIRECTORY that match SCHEME-FILE-REGEXP. Files