From 5592dadf5af7bd95890259af689a72ade528f600 Mon Sep 17 00:00:00 2001 From: Thomas White Date: Tue, 19 Oct 2021 20:06:06 +0200 Subject: Replace partial application functions with SRFI-26 "cut" --- guile/starlet/midi-control/faders.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'guile/starlet/midi-control/faders.scm') diff --git a/guile/starlet/midi-control/faders.scm b/guile/starlet/midi-control/faders.scm index 2af57e3..81764b5 100644 --- a/guile/starlet/midi-control/faders.scm +++ b/guile/starlet/midi-control/faders.scm @@ -26,6 +26,7 @@ #:use-module (starlet scanout) #:use-module (starlet utils) #:use-module (srfi srfi-1) + #:use-module (srfi srfi-26) #:use-module (oop goops) #:export (set-midi-control-map! state-on-fader)) @@ -90,7 +91,7 @@ (define (fixtures-with-attr fixture-list attr-name) - (let ((attrs (map (partial find-attr attr-name) fixture-list))) + (let ((attrs (map (cut find-attr <> attr-name) fixture-list))) (fold (lambda (fix attr old) (if attr (cons (cons fix (car old)) -- cgit v1.2.3