diff options
Diffstat (limited to 'binary-io.scm')
-rw-r--r-- | binary-io.scm | 2 |
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)) |