From 614b6b0feed84f538a420f4299490c70dc3d70b9 Mon Sep 17 00:00:00 2001 From: "v.audacity" Date: Sat, 23 Jun 2012 01:34:21 +0000 Subject: [PATCH] patch for http://bugzilla.audacityteam.org/show_bug.cgi?id=522 (P4) --- nyquist/fileio.lsp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/nyquist/fileio.lsp b/nyquist/fileio.lsp index 94fe59f00..b5803abf5 100644 --- a/nyquist/fileio.lsp +++ b/nyquist/fileio.lsp @@ -292,10 +292,10 @@ `(let ((ny:fname (soundfilename ,filename)) (ny:peak 0.0) ny:input ny:rslt ny:offset) - (format t "Overwriting ~A at offset ~A~%" ny:fname ny:offset) + (format t "Overwriting ~A at offset ~A~%" ny:fname ,time-offset) (setf ny:offset (s-read-byte-offset ny:rslt)) - (setf ny:peak (snd-overwrite `,expr ,maxlen ny:fname time-offset - 0, 0, 0, 0.0, 0)) + (setf ny:peak (snd-overwrite `,expr ,maxlen ny:fname ,time-offset + 0, 0, 0, 0)) (format t "Duration written: ~A~%" (car *rslt*)) ny:peak))