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/base.scm | |
| parent | 0f3a785dbd1dfcf1bfa636463b766b8f256e2e9f (diff) | |
Fix sel/at (again)
Diffstat (limited to 'guile/starlet/base.scm')
| -rw-r--r-- | guile/starlet/base.scm | 7 |
1 files changed, 5 insertions, 2 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)) |