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/playback.scm | |
parent | c5013476ca46313307d2537bb956603fe7dc6cac (diff) |
Replace partial application functions with SRFI-26 "cut"
Diffstat (limited to 'guile/starlet/playback.scm')
-rw-r--r-- | guile/starlet/playback.scm | 5 |
1 files changed, 3 insertions, 2 deletions
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 |