From 3ab2b506f09c6771b14cd09cae869da7e699badd Mon Sep 17 00:00:00 2001 From: Thomas White Date: Sat, 3 Apr 2021 09:54:39 +0200 Subject: Fix sel/at (again) --- guile/starlet/base.scm | 7 +++++-- guile/starlet/midi-control/faders.scm | 2 +- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/guile/starlet/base.scm b/guile/starlet/base.scm index 105df54..688a7f9 100644 --- a/guile/starlet/base.scm +++ b/guile/starlet/base.scm @@ -561,8 +561,11 @@ pre-existing contents." (define (sel . fixture-list) - (set! selection - (flatten-sublists fixture-list)) + (if (nil? fixture-list) + (set! selection '()) + (if (not (car fixture-list)) + (set! selection '()) + (set! selection (flatten-sublists fixture-list)))) (run-hook selection-hook selection)) diff --git a/guile/starlet/midi-control/faders.scm b/guile/starlet/midi-control/faders.scm index ab3ca38..07dfa46 100644 --- a/guile/starlet/midi-control/faders.scm +++ b/guile/starlet/midi-control/faders.scm @@ -242,7 +242,7 @@ (set! midi-callbacks '()) - (when (car fixture-list) + (unless (nil? fixture-list) (set! midi-callbacks (map (partial midi-control-attr fixture-list) control-map)))) -- cgit v1.2.3