Ricardo Wurmus <[email protected]> skribis:
> From 2f190da0d812501a4ab3db94a99ac8f7c6698cbc Mon Sep 17 00:00:00 2001
> From: Ricardo Wurmus <[email protected]>
> Date: Tue, 29 Mar 2016 09:06:09 +0200
> Subject: [PATCH] gnu: Add python-pyusb.
>
> * gnu/packages/libusb.scm (python-pyusb, python2-pyusb): New variables.
[...]
> + (lambda* (#:key inputs #:allow-other-keys)
> + (substitute* "usb/libloader.py"
> + (("lib = locate_library\\(candidates, find_library\\)")
> + (string-append
> + "lib = \""
> + (car (find-files (assoc-ref inputs "libusb")
> + (lambda (file stat)
> + (and ((file-name-predicate
> + "^libusb-.*\\.so\\..*") file stat)
> + (not (symbolic-link? file))))))
Maybe (with SRFI-1):
(find (negate symbolic-link?)
(find-files (assoc-ref inputs "libusb")
"^libusb-.*\\.so\\..*"))
But really this is nitpicking, the patch should go in. :-)
Ludo’.
