From 358b160e39071a3d8e6026e1b6fbfd0f8f8d1124 Mon Sep 17 00:00:00 2001 From: Thomas White Date: Sun, 16 May 2021 11:13:59 +0200 Subject: Remove newly redundant with-fade-times macro --- guile/starlet/playback.scm | 24 ------------------------ 1 file changed, 24 deletions(-) diff --git a/guile/starlet/playback.scm b/guile/starlet/playback.scm index e9d5ea2..a766b0a 100644 --- a/guile/starlet/playback.scm +++ b/guile/starlet/playback.scm @@ -86,30 +86,6 @@ (preset-delay get-fade-preset-delay)) -;; Macro to avoid a profusion of (get-fade-xxx-time fade-times) -(define-syntax with-fade-times - (lambda (x) - (syntax-case x () - ((_ fade-times body ...) - (with-syntax ((up-time (datum->syntax x 'up-time)) - (down-time (datum->syntax x 'down-time)) - (attr-time (datum->syntax x 'attr-time)) - (up-delay (datum->syntax x 'up-delay)) - (down-delay (datum->syntax x 'down-delay)) - (attr-delay (datum->syntax x 'attr-delay)) - (preset-time (datum->syntax x 'preset-time)) - (preset-delay (datum->syntax x 'preset-delay))) - #'(let ((up-time (get-fade-up-time fade-times)) - (down-time (get-fade-down-time fade-times)) - (attr-time (get-fade-attr-time fade-times)) - (up-delay (get-fade-up-delay fade-times)) - (down-delay (get-fade-down-delay fade-times)) - (attr-delay (get-fade-attr-delay fade-times)) - (preset-time (get-fade-preset-time fade-times)) - (preset-delay (get-fade-preset-delay fade-times))) - body ...)))))) - - (define-record-type (make-cue number state -- cgit v1.2.3