diff options
| author | IOhannes m zmölnig <zmoelnig@iem.at> | 2016-08-04 10:52:15 +0200 |
|---|---|---|
| committer | IOhannes m zmölnig <zmoelnig@iem.at> | 2016-08-04 10:52:15 +0200 |
| commit | 595a8d637b81d45fe73f566b25d64cf8bca672c1 (patch) | |
| tree | 0a88f6ef6f0c857ba5c37842a0c5ad63b84d3915 /autosave.scm | |
| parent | 3eb3c4d013403119c639870bf55d61e3456c1078 (diff) | |
Imported Upstream version 16.7
Diffstat (limited to 'autosave.scm')
| -rw-r--r-- | autosave.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/autosave.scm b/autosave.scm index 2d78052..f17e78b 100644 --- a/autosave.scm +++ b/autosave.scm @@ -48,7 +48,7 @@ (if auto-saving (begin (for-each (lambda (snd) - (if (positive? (or (sound-property 'auto-save snd) 0)) + (if (cond ((sound-property 'auto-save snd) => positive?) (else #f)) (let ((save-name (auto-save-temp-name snd))) (status-report (string-append "auto-saving as " save-name "...") snd) (in 3000 (lambda () (status-report "" snd))) |