diff options
-rw-r--r-- | guile/starlet/base.scm | 7 | ||||
-rw-r--r-- | 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)))) |