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 | |
| parent | c5013476ca46313307d2537bb956603fe7dc6cac (diff) | |
Replace partial application functions with SRFI-26 "cut"
Diffstat (limited to 'guile/starlet')
| -rw-r--r-- | guile/starlet/midi-control/faders.scm | 3 | ||||
| -rw-r--r-- | guile/starlet/playback.scm | 5 | ||||
| -rw-r--r-- | guile/starlet/utils.scm | 11 |
3 files changed, 5 insertions, 14 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)) diff --git a/guile/starlet/playback.scm b/guile/starlet/playback.scm index f9baca7..55bbcf0 100644 --- a/guile/starlet/playback.scm +++ b/guile/starlet/playback.scm @@ -26,6 +26,7 @@ #:use-module (ice-9 atomic) #:use-module (srfi srfi-1) #:use-module (srfi srfi-9) + #:use-module (srfi srfi-26) #:use-module (srfi srfi-43) #:use-module (starlet fixture) #:use-module (starlet state) @@ -516,9 +517,9 @@ (define (make-fade-for-attribute-type type) (cond - ((eq? type 'continuous) (partial-start make-general-fade simple-fade)) + ((eq? type 'continuous) (cut make-general-fade simple-fade <...>)) ((eq? type 'list) make-list-attr-fade) - ((eq? type 'colour) (partial-start make-general-fade colour-fade)) + ((eq? type 'colour) (cut make-general-fade colour-fade <...>)) (else (raise-exception (make-exception (make-exception-with-message diff --git a/guile/starlet/utils.scm b/guile/starlet/utils.scm index d5441cb..16e3364 100644 --- a/guile/starlet/utils.scm +++ b/guile/starlet/utils.scm @@ -22,8 +22,6 @@ #:use-module (srfi srfi-1) #:export (print-hash-table copy-hash-table - partial - partial-start in-range mean flatten-sublists @@ -47,15 +45,6 @@ new-ht)) -(define (partial f second-val) - (lambda (first-val) - (f first-val second-val))) - - -(define (partial-start f first-val) - (lambda args - (apply f first-val args))) - (define (in-range a val1 val2) (or |