diff options
| author | Efraim Flashner <efraim@flashner.co.il> | 2018-11-10 20:14:36 +0200 |
|---|---|---|
| committer | Efraim Flashner <efraim@flashner.co.il> | 2018-11-10 20:18:37 +0200 |
| commit | 211db9caf7ffdaa9f2abc7d6216f239f96312545 (patch) | |
| tree | 3b8e7a6a6231976316e97c8969cb46806a0018be /gnu/packages | |
| parent | 9829e0699b6b0373c1742393f18db261a6ae67a8 (diff) | |
gnu: sharutils: Remove false comment.
This is a follow-up to b50d58b3445a85bf4395e2b767da10c2e3438902.
* gnu/packages/compression.scm (sharutils)[source]: This snippet is, in
fact, a snippet.
Diffstat (limited to 'gnu/packages')
| -rw-r--r-- | gnu/packages/compression.scm | 29 |
1 files changed, 13 insertions, 16 deletions
diff --git a/gnu/packages/compression.scm b/gnu/packages/compression.scm index aa47fefd8a..5b09cb584e 100644 --- a/gnu/packages/compression.scm +++ b/gnu/packages/compression.scm @@ -598,22 +598,19 @@ decompressors when faced with corrupted input.") (sha256 (base32 "16isapn8f39lnffc3dp4dan05b7x6mnc76v6q5nn8ysxvvvwy19b")) - (modules '((guix build utils))) - (snippet - '(begin - ;; Adjust the bundled gnulib to work with glibc 2.28. See e.g. - ;; "m4-gnulib-libio.patch". This is a phase rather than patch - ;; or snippet to work around <https://bugs.gnu.org/32347>. - (substitute* (find-files "lib" "\\.c$") - (("#if defined _IO_ftrylockfile") - "#if defined _IO_EOF_SEEN")) - (substitute* "lib/stdio-impl.h" - (("^/\\* BSD stdio derived implementations") - (string-append "#if !defined _IO_IN_BACKUP && defined _IO_EOF_SEEN\n" - "# define _IO_IN_BACKUP 0x100\n" - "#endif\n\n" - "/* BSD stdio derived implementations"))) - #t)))) + (modules '((guix build utils))) + (snippet + '(begin + (substitute* (find-files "lib" "\\.c$") + (("#if defined _IO_ftrylockfile") + "#if defined _IO_EOF_SEEN")) + (substitute* "lib/stdio-impl.h" + (("^/\\* BSD stdio derived implementations") + (string-append "#if !defined _IO_IN_BACKUP && defined _IO_EOF_SEEN\n" + "# define _IO_IN_BACKUP 0x100\n" + "#endif\n\n" + "/* BSD stdio derived implementations"))) + #t)))) (build-system gnu-build-system) (inputs `(("which" ,which))) |