diff options
author | Ludovic Courtès <ludo@gnu.org> | 2023-01-29 17:51:51 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2023-02-06 16:51:02 +0100 |
commit | 32f33756d0fbbf28e848f087375f75c265d0a46c (patch) | |
tree | fad30e72fe9ee12c339c316474fc7e44b27ab7ee /build-aux/guix | |
parent | a211c8aaffcb583df3072aed88c8b6a982a8698e (diff) | |
download | guile-32f33756d0fbbf28e848f087375f75c265d0a46c.tar.gz |
maint: Add variants of the default package for Guix.
* build-aux/guix/guile-package.scm (package-with-configure-flags): New
procedure.
(guile-without-threads, guile-without-networking)
(guile-debug, guile-strict-typing): New variables.
* build-aux/manifest.scm: Use (guile-package) module instead of 'load'.
(native-builds): Add the variants above + "guile-clang".
Diffstat (limited to 'build-aux/guix')
-rw-r--r-- | build-aux/guix/guile-package.scm | 38 |
1 files changed, 35 insertions, 3 deletions
diff --git a/build-aux/guix/guile-package.scm b/build-aux/guix/guile-package.scm index 827ef5ef8..65c225d16 100644 --- a/build-aux/guix/guile-package.scm +++ b/build-aux/guix/guile-package.scm @@ -40,10 +40,9 @@ #:use-module (guix build-system gnu) #:use-module ((guix licenses) #:prefix license:) #:use-module (gnu packages) - #:use-module (gnu packages pkg-config) - #:export (guile)) + #:use-module (gnu packages pkg-config)) -(define guile +(define-public guile (let ((vcs-file? (or (git-predicate (string-append (current-source-directory) "/../..")) @@ -147,4 +146,37 @@ without requiring the source code to be rewritten.") (home-page "https://www.gnu.org/software/guile/") (license license:lgpl3+)))) +(define (package-with-configure-flags p flags) + "Return P with FLAGS as addition 'configure' flags." + (package/inherit p + (arguments + (substitute-keyword-arguments (package-arguments p) + ((#:configure-flags original-flags #~'()) + #~(append #$original-flags #$flags)))))) + +(define-public guile-without-threads + (package + (inherit (package-with-configure-flags guile + #~'("--without-threads"))) + (name "guile-without-threads"))) + +(define-public guile-without-networking + (package + (inherit (package-with-configure-flags guile + #~'("--disable-networking"))) + (name "guile-without-networking"))) + +(define-public guile-debug + (package + (inherit (package-with-configure-flags guile + #~'("--enable-guile-debug"))) + (name "guile-debug"))) + +(define-public guile-strict-typing + (package + (inherit (package-with-configure-flags + guile + #~'("CPPFLAGS=-DSCM_DEBUG_TYPING_STRICTNESS=2"))) + (name "guile-strict-typing"))) + guile |