[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [PATCH] gnu: gnunet: Add GNUnet-0.10.0.
From: |
Mark H Weaver |
Subject: |
Re: [PATCH] gnu: gnunet: Add GNUnet-0.10.0. |
Date: |
Fri, 31 Jan 2014 11:17:14 -0500 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/24.3 (gnu/linux) |
Hi,
Sree Harsha Totakura <address@hidden> writes:
> + '(#:phases
> + ;; swap check and install phases and set paths to installed binaries
> + (alist-cons-before
> + 'check 'set-path-for-check
> + (lambda* (#:key outputs #:allow-other-keys)
> + (let ((out (assoc-ref outputs "out")))
> + (setenv "GNUNET_PREFIX" out)
> + (setenv "PATH" (string-append (getenv "PATH") ":" out "/bin"))))
> + (alist-cons-after
> + 'install 'check
> + (assoc-ref %standard-phases 'check)
> + (alist-delete
> + 'check
> + %standard-phases)))))
The indentation of this part (authored by Andreas) is misleading. It
looks as though the calls to 'alist-*' are sibling expressions, when in
fact they are nested within each other. I suspect this was intentional,
but IMO it's a bad idea to play such games with indentation. I think it
should be like this:
--8<---------------cut here---------------start------------->8---
'(#:phases
;; swap check and install phases and set paths to installed binaries
(alist-cons-before
'check 'set-path-for-check
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(setenv "GNUNET_PREFIX" out)
(setenv "PATH" (string-append (getenv "PATH") ":" out "/bin"))))
(alist-cons-after
'install 'check
(assoc-ref %standard-phases 'check)
(alist-delete
'check
%standard-phases)))))
--8<---------------cut here---------------end--------------->8---
What do you think?
Mark