summaryrefslogtreecommitdiff
path: root/binary-io.scm
diff options
context:
space:
mode:
authorIOhannes m zmölnig <zmoelnig@umlautQ.umlaeute.mur.at>2016-12-12 14:18:23 +0100
committerIOhannes m zmölnig <zmoelnig@umlautQ.umlaeute.mur.at>2016-12-12 14:18:23 +0100
commit0b84e302c3cc5e4456ca13b292750f0ae63406bc (patch)
tree35db47e955fedf352e6cbdc2ac8a46936e5703b3 /binary-io.scm
parent776255b6ac4c65cafad6a4d5f03380895d31ea96 (diff)
New upstream version 17.0
Diffstat (limited to 'binary-io.scm')
-rw-r--r--binary-io.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/binary-io.scm b/binary-io.scm
index 6f5bba5..2f27536 100644
--- a/binary-io.scm
+++ b/binary-io.scm
@@ -239,7 +239,7 @@
(lambda ()
(let ((magic (read-chars)))
(if (not (string=? magic ".snd"))
- (error 'bad-header "~A is not an au file: ~A" file)
+ (error 'bad-header "~A is not an au file" file)
(let* ((data-location (read-bint32))
(data-size (read-bint32))
(sample-type (read-bint32))