From mboxrd@z Thu Jan  1 00:00:00 1970
From: Mathieu Othacehe <m.othacehe@gmail.com>
Subject: bug#33867: Folding with origin-uri fails for inherited packages
Date: Tue, 25 Dec 2018 13:01:15 +0100
Message-ID: <875zvhdddp.fsf@gmail.com>
References: <213acfca-4a92-4494-4a0c-b8fc100d6f10@riseup.net>
Mime-Version: 1.0
Content-Type: text/plain
Return-path: <bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([208.118.235.92]:41729)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1gblPR-0006iR-Gr
	for bug-guix@gnu.org; Tue, 25 Dec 2018 07:02:06 -0500
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1gblPO-0005nV-Ca
	for bug-guix@gnu.org; Tue, 25 Dec 2018 07:02:05 -0500
Received: from debbugs.gnu.org ([208.118.235.43]:47966)
	by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16)
	(Exim 4.71) (envelope-from <Debian-debbugs@debbugs.gnu.org>)
	id 1gblPO-0005nO-9B
	for bug-guix@gnu.org; Tue, 25 Dec 2018 07:02:02 -0500
Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2)
	(envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1gblPO-0003yC-4u
	for bug-guix@gnu.org; Tue, 25 Dec 2018 07:02:02 -0500
Sender: "Debbugs-submit" <debbugs-submit-bounces@debbugs.gnu.org>
Resent-Message-ID: <handler.33867.B33867.154573928515219@debbugs.gnu.org>
In-reply-to: <213acfca-4a92-4494-4a0c-b8fc100d6f10@riseup.net>
List-Id: Bug reports for GNU Guix <bug-guix.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/bug-guix>,
	<mailto:bug-guix-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/bug-guix/>
List-Post: <mailto:bug-guix@gnu.org>
List-Help: <mailto:bug-guix-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/bug-guix>,
	<mailto:bug-guix-request@gnu.org?subject=subscribe>
Errors-To: bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org
Sender: "bug-Guix" <bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org>
To: swedebugia <swedebugia@riseup.net>
Cc: 33867@debbugs.gnu.org


Hi,

> Is this a bug?

No it's not, the following snippet should work better.

--8<---------------cut here---------------start------------->8---
(fold-packages
 (lambda (package lst)
   (if (string-prefix? "python" (package-name package))
       (cons (and=> (package-source package)
                    (lambda (source)
                      (origin-uri source)))
             lst)
     lst))
 '())
--8<---------------cut here---------------end--------------->8---

Mathieu