From f922f37bf69ededf6d4e890559f8e589cb86d84e Mon Sep 17 00:00:00 2001 From: Chongkai Zhu Date: Tue, 3 Jun 2008 22:28:59 +0000 Subject: [PATCH] SRFI tested for v4 svn: r10114 --- collects/srfi/69/hash.ss | 5 +++-- collects/tests/srfi/load-srfis.ss | 2 -- 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/collects/srfi/69/hash.ss b/collects/srfi/69/hash.ss index bfa08a3e3e..c135f9beed 100644 --- a/collects/srfi/69/hash.ss +++ b/collects/srfi/69/hash.ss @@ -5,7 +5,8 @@ (module hash mzscheme - (require mzlib/etc) + (require mzlib/etc + scheme/mpair) (provide (rename my-make-hash-table s:make-hash-table) (rename my-hash-table? s:hash-table?) @@ -92,7 +93,7 @@ (define (%hash-table-walk proc entries) (do ((index (- (vector-length entries) 1) (- index 1))) - ((< index 0)) (for-each proc (vector-ref entries index)))) + ((< index 0)) (mfor-each proc (vector-ref entries index)))) (define (%hash-table-maybe-resize! hash-table) (let* ((old-entries (my-hash-table-entries hash-table)) diff --git a/collects/tests/srfi/load-srfis.ss b/collects/tests/srfi/load-srfis.ss index 2422787b07..cf92f1df79 100644 --- a/collects/tests/srfi/load-srfis.ss +++ b/collects/tests/srfi/load-srfis.ss @@ -35,7 +35,6 @@ (require srfi/61) (require srfi/63) (require srfi/64) -(require srfi/66) (require srfi/67) (require srfi/69) (require srfi/71) @@ -73,7 +72,6 @@ (require srfi/61/cond) (require srfi/63/63) (require srfi/64/testing) -(require srfi/66/66) (require srfi/67/compare) (require srfi/69/hash) (require srfi/71/letvalues)