diff options
author | IOhannes m zmölnig <zmoelnig@umlautQ.umlaeute.mur.at> | 2016-09-08 23:58:23 +0200 |
---|---|---|
committer | IOhannes m zmölnig <zmoelnig@umlautQ.umlaeute.mur.at> | 2016-09-08 23:58:23 +0200 |
commit | a91adfdf373f6914bfec9901421cba0e99746b0b (patch) | |
tree | 9fc3e2e67270c619fed36dea3b41495c497775c7 /snddiff.scm | |
parent | 595a8d637b81d45fe73f566b25d64cf8bca672c1 (diff) |
New upstream version 16.8
Diffstat (limited to 'snddiff.scm')
-rw-r--r-- | snddiff.scm | 23 |
1 files changed, 11 insertions, 12 deletions
diff --git a/snddiff.scm b/snddiff.scm index c9de21a..c86fad0 100644 --- a/snddiff.scm +++ b/snddiff.scm @@ -22,18 +22,17 @@ (let ((diff (float-vector-subtract! (copy v0) v1))) (if (<= (float-vector-peak diff) maxdiff) 'no-difference - (let ((diffs 0) - (diff-data ()) - (len (min (length v0) (length v1)))) - (do ((i 0 (+ i 1))) - ((or (> diffs 10) - (= i len))) - (if (> (abs (diff i)) .00001) - (begin - (set! diffs (+ diffs 1)) - (set! diff-data (cons (list i (v0 i) (v1 i)) diff-data))))) - (and (< diffs 10) - (list 'differences diff-data)))))) + (do ((diffs 0) + (diff-data ()) + (len (min (length v0) (length v1))) + (i 0 (+ i 1))) + ((or (> diffs 10) + (= i len)) + (and (< diffs 10) + (list 'differences diff-data))) + (when (> (abs (diff i)) .00001) + (set! diffs (+ diffs 1)) + (set! diff-data (cons (list i (v0 i) (v1 i)) diff-data))))))) (define (float-vector-size v) |