diff options
author | Thomas White <taw@physics.org> | 2021-04-03 09:54:39 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2021-04-03 09:54:39 +0200 |
commit | 3ab2b506f09c6771b14cd09cae869da7e699badd (patch) | |
tree | 8dd70d519f38a8848a4192002c1dd4d7267613f7 /guile/starlet | |
parent | 0f3a785dbd1dfcf1bfa636463b766b8f256e2e9f (diff) |
Fix sel/at (again)
Diffstat (limited to 'guile/starlet')
-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)))) |