diff options
| author | Marius Bakke <mbakke@fastmail.com> | 2020-04-13 20:26:21 +0200 |
|---|---|---|
| committer | Marius Bakke <mbakke@fastmail.com> | 2020-04-13 20:26:21 +0200 |
| commit | fc58cb5bd2f4a4fb9e910f553009fce8a60e56e9 (patch) | |
| tree | 5a69fa6b63a7bfe7232cb98e949912c20775058d /guix/self.scm | |
| parent | 9d89818a359dd0657e4eb7649b29ad4197b8db39 (diff) | |
| parent | bad368b0d794689f3a8a11b58f1ea4987938682e (diff) | |
| download | guix-patches-fc58cb5bd2f4a4fb9e910f553009fce8a60e56e9.tar guix-patches-fc58cb5bd2f4a4fb9e910f553009fce8a60e56e9.tar.gz | |
Merge branch 'master' into core-updates
Diffstat (limited to 'guix/self.scm')
| -rw-r--r-- | guix/self.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/guix/self.scm b/guix/self.scm index e3b36b9407..842161400e 100644 --- a/guix/self.scm +++ b/guix/self.scm @@ -489,6 +489,13 @@ TRANSLATIONS, an alist of msgid and msgstr." (computed-file "guix-manual" build)) +(define-syntax-rule (prevent-inlining! identifier ...) + (begin (set! identifier identifier) ...)) + +;; XXX: These procedures are actually used by 'doc/build.scm'. Protect them +;; from inlining on Guile 3. +(prevent-inlining! file-append* translate-texi-manuals info-manual) + (define* (guile-module-union things #:key (name "guix-module-union")) "Return the union of the subset of THINGS (packages, computed files, etc.) that provide Guile modules." |