From 2e8462b8e305b05e3c77a936a8b2d2490b2e0ee0 Mon Sep 17 00:00:00 2001 From: Thomas White Date: Sat, 19 Mar 2022 18:46:18 +0100 Subject: crossfade: Remove unused routines --- guile/starlet/crossfade.scm | 20 -------------------- 1 file changed, 20 deletions(-) (limited to 'guile/starlet/crossfade.scm') diff --git a/guile/starlet/crossfade.scm b/guile/starlet/crossfade.scm index 4c32685..a301270 100644 --- a/guile/starlet/crossfade.scm +++ b/guile/starlet/crossfade.scm @@ -191,26 +191,6 @@ (< a 1)))) -(define (fix-attr-eq fa1 fa2) - (and (eq? (car fa1) (car fa2)) - (eq? (cdr fa1) (cdr fa2)))) - - -(define (fix-attrs-in-state state) - (state-map (lambda (fix attr val) (cons fix attr)) - state)) - - -(define (add-fix-attrs-to-list state old-list) - (lset-union fix-attr-eq - old-list - (fix-attrs-in-state state))) - - -(define (fix-attrs-involved . states) - (fold add-fix-attrs-to-list '() states)) - - (define (blank-everything in-state down-clock) (let ((out-state (make-empty-state))) (state-for-each -- cgit v1.2.3