Hi Simon,

Simon Tournier <zimon.toutoune@gmail.com> writes:

>  (define (package-direct-sources package)
>    "Return all source origins associated with PACKAGE; including origins in
> -PACKAGE's inputs."
> -  `(,@(or (and=> (package-source package) list) '())
> +PACKAGE's inputs and patches."
> +  (define (expand source)
> +    (append
> +     (list source)
> +     (filter origin? (origin-patches source))))

* cough * (cons source (filter ...)) * cough *

Other than that, LGTM!  Tests worked fine on my end.  No idea what this
is used for though :p

Best,
-- 
Josselin Poiret