Subject: bug#33867: closed (Re: bug#33867: Folding with origin-uri fails for inherited packages)

From: [email-masked] (GNU bug Tracking System)
Date: Tue, 25 Dec 2018 17:23:03 +0000

Your bug report

#33867: Folding with origin-uri fails for inherited packages

which was filed against the guix package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to [email-masked].

-- 
33867: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=33867
GNU Bug Tracking System
Contact [email-masked] with problems

Subject: Re: bug#33867: Folding with origin-uri fails for inherited packages
From: swedebugia <[email-masked]>
To: Mathieu Othacehe <[email-masked]>
Cc: [email-masked]
Date: Tue, 25 Dec 2018 18:29:28 +0100
List-Id: <debbugs-submit.debbugs.gnu.org>

On 2018-12-25 13:01, Mathieu Othacehe wrote:
> (fold-packages
>   (lambda (package lst)
>     (if (string-prefix? "python" (package-name package))
>         (cons (and=> (package-source package)
>                      (lambda (source)
>                        (origin-uri source)))
>               lst)
>       lst))
>   '())

thanks!
closing
-- 
Cheers Swedebugia

Subject: Folding with origin-uri fails for inherited packages
From: swedebugia <[email-masked]>
To: Report new Guix bug <[email-masked]>
Date: Tue, 25 Dec 2018 12:43:38 +0100
List-Id: <debbugs-submit.debbugs.gnu.org>

Is this a bug?

scheme@(guix-user) [1]> (define snakes
                        (fold-packages
                             (lambda (package lst)
                                 (if (string-prefix? "python"
                                       (package-name package))
                                        (cons (origin-uri package) lst)
                              lst))
                         '()))
... ... ... ... ... ... ... <unnamed port>:15:45: In procedure 
origin-uri: Wrong type argument: #<package [email-masked] 
gnu/packages/xml.scm:1235 2220300>

Entering a new prompt.  Type `,bt' for a backtrace or `,q' to continue.
scheme@(guix-user) [2]> ,bt
In current input:
     11:23  5 (_)
In guix/discovery.scm:
     155:3  4 (fold-module-public-variables _ _ _)
In guix/combinators.scm:
     45:26  3 (fold2 #<procedure 1138b20 at guix/discovery.scm:155:10 
(mod…> …)
     45:26  2 (fold2 #<procedure 1144620 at guix/discovery.scm:156:19 
(var…> …)
In guix/discovery.scm:
    158:33  1 (_ #<package [email-masked] 
gnu/packages/xml.scm:1…> …)
In current input:
     15:45  0 (_ _ _)

-- 
Cheers Swedebugia