From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Tue, 23 Jan 2007 02:51:31 +0000 (+0100)
Subject: use normal hash iso. hashv for coverage.
X-Git-Tag: release/2.11.14-1~60
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=e1cf796adb1b15362b7f7c7525549decdf18044d;p=lilypond.git

use normal hash iso. hashv for coverage.
---

diff --git a/scm/coverage.scm b/scm/coverage.scm
index aefef132f9..5ca40f9029 100644
--- a/scm/coverage.scm
+++ b/scm/coverage.scm
@@ -74,7 +74,7 @@ Coverage for file: ~a
   (let*
       ((name (source-property exp 'filename))
        (line (source-property exp 'line))
-       (vec (and name (hashv-ref coverage-table name #f)))
+       (vec (and name (hash-ref coverage-table name #f)))
        (veclen (and vec (vector-length vec)))
        (veccopy (lambda (src dst)
 		  (vector-move-left! src 0 (vector-length src)
@@ -84,7 +84,7 @@ Coverage for file: ~a
 	(begin
 	  (if (or (not vec) (>= line (vector-length vec)))
 	      (set! vec
-		    (hashv-set! coverage-table name
+		    (hash-set! coverage-table name
 				(if vec
 				    (veccopy vec (make-vector (1+ line) #f))
 				    (make-vector (1+ line) #f)))))