diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2022-01-17 10:47:15 +0100 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2022-01-17 10:47:15 +0100 |
| commit | 0dbfc16ee2e3a7c2e8f6f507f08214509fa13c4b (patch) | |
| tree | f27e880d04caa3894b5c8d99750576afa818eec3 | |
| parent | 87ad668a5155ff193d0c130b3d67d25d456d934a (diff) | |
| download | guix-patches-0dbfc16ee2e3a7c2e8f6f507f08214509fa13c4b.tar guix-patches-0dbfc16ee2e3a7c2e8f6f507f08214509fa13c4b.tar.gz | |
gnu: emacs-geiser-guile: Use G-expressions.
* gnu/packages/emacs-xyz.scm (emacs-geiser-guile)[arguments]<#:include,
| -rw-r--r-- | gnu/packages/emacs-xyz.scm | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm index d340862700..77ee7a4477 100644 --- a/gnu/packages/emacs-xyz.scm +++ b/gnu/packages/emacs-xyz.scm @@ -299,19 +299,19 @@ e.g. emacs-geiser-guile for Guile.") (base32 "0fk5rr7mjmb4waiagi80dhddas5mrsgqr0flag5v5b0piblixxq6")))) (build-system emacs-build-system) (arguments - '(#:include (cons "^src/" %default-include) - #:phases - (modify-phases %standard-phases - (add-after 'make-autoloads 'patch-autoloads - (lambda* (#:key outputs #:allow-other-keys) - (substitute* (string-append - (elpa-directory (assoc-ref outputs "out")) - "/geiser-guile-autoloads.el") - ;; Activating implementations fails when Geiser is not yet - ;; loaded, so let's defer that until it is. - (("\\(geiser-activate-implementation .*\\)" all) - (string-append - "(eval-after-load 'geiser-impl '" all ")")))))))) + (list + #:include #~(cons "^src/" %default-include) + #:phases + #~(modify-phases %standard-phases + (add-after 'make-autoloads 'patch-autoloads + (lambda _ + (substitute* (string-append (elpa-directory #$output) + "/geiser-guile-autoloads.el") + ;; Activating implementations fails when Geiser is not yet + ;; loaded, so let's defer that until it is. + (("\\(geiser-activate-implementation .*\\)" all) + (string-append + "(eval-after-load 'geiser-impl '" all ")")))))))) (inputs (list guile-3.0)) (propagated-inputs |