From e1cf796adb1b15362b7f7c7525549decdf18044d Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Tue, 23 Jan 2007 03:51:31 +0100 Subject: [PATCH] use normal hash iso. hashv for coverage. --- scm/coverage.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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))))) -- 2.39.2