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/playback.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'guile/starlet/playback.scm') 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 -- cgit v1.2.3