diff options
author | Thomas White <taw@physics.org> | 2021-10-19 20:06:06 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2021-10-19 20:06:06 +0200 |
commit | 5592dadf5af7bd95890259af689a72ade528f600 (patch) | |
tree | 8e9ad90247b0890ba1a292e3f44a6d6a452f7149 /guile/starlet/midi-control/faders.scm | |
parent | c5013476ca46313307d2537bb956603fe7dc6cac (diff) |
Replace partial application functions with SRFI-26 "cut"
Diffstat (limited to 'guile/starlet/midi-control/faders.scm')
-rw-r--r-- | guile/starlet/midi-control/faders.scm | 3 |
1 files changed, 2 insertions, 1 deletions
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)) |