diff options
| author | Alessio Treglia <alessio@debian.org> | 2010-09-22 11:13:01 +0200 |
|---|---|---|
| committer | Alessio Treglia <alessio@debian.org> | 2010-09-22 11:13:01 +0200 |
| commit | 21c0acaad1b1fa3d17c911ff7e4ad05d63310195 (patch) | |
| tree | 78c71c4b3e27b7e107e5023c67123a3cacc018de /gtk-effects-utils.scm | |
| parent | 6d99b2e313fc5878ab1ac115460f0e85595825a0 (diff) | |
Imported Upstream version 11.9
Diffstat (limited to 'gtk-effects-utils.scm')
| -rw-r--r-- | gtk-effects-utils.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gtk-effects-utils.scm b/gtk-effects-utils.scm index 1bf91d8..b1bf2f1 100644 --- a/gtk-effects-utils.scm +++ b/gtk-effects-utils.scm @@ -13,7 +13,7 @@ (let ((sndlist '()) (chnlist '())) (for-each (lambda (snd) - (do ((i (1- (channels snd)) (1- i))) + (do ((i (- (channels snd) 1) (- i 1))) ((< i 0)) (set! sndlist (cons snd sndlist)) (set! chnlist (cons i chnlist)))) |