diff options
Diffstat (limited to 'build-aux/guix/guile-package.scm')
| -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 |