diff options
author | IOhannes m zmölnig <zmoelnig@umlautQ.umlaeute.mur.at> | 2016-10-31 00:24:03 +0100 |
---|---|---|
committer | IOhannes m zmölnig <zmoelnig@umlautQ.umlaeute.mur.at> | 2016-10-31 00:24:03 +0100 |
commit | 776255b6ac4c65cafad6a4d5f03380895d31ea96 (patch) | |
tree | 6bbb34538b59b3b6365f7b4de9b385d0e3c41ee3 /freeverb.scm | |
parent | f81bd20a17bbbccde1154046c6ec70805e4be71b (diff) |
New upstream version 17
Diffstat (limited to 'freeverb.scm')
-rw-r--r-- | freeverb.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/freeverb.scm b/freeverb.scm index b9611d0..d00265e 100644 --- a/freeverb.scm +++ b/freeverb.scm @@ -86,7 +86,7 @@ (format () ";;; freeverb: ~d input channels, ~d output channels~%" in-chans out-chans)) (if (and (> in-chans 1) (not (= in-chans out-chans))) - (error "input must be mono or input channels must equal output channels")) + (error 'wrong-type-arg "input must be mono or input channels must equal output channels")) (let ((out-mix (or output-mixer (let ((v (make-float-vector (list out-chans out-chans)))) |