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

[swedebugia <swedebugia@riseup.net>]

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 python2-defusedxml@0.5.0 
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 python2-defusedxml@0.5.0 
gnu/packages/xml.scm:1…> …)
In current input:
     15:45  0 (_ _ _)


-- 
Cheers Swedebugia