suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

SRFI tested for v4

Browse Source 
svn: r10114
This commit is contained in:
Chongkai Zhu 2008-06-03 22:28:59 +00:00
parent 2a728cdf3c
commit f922f37bf6
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/srfi/69/hash.ss
View File

@ -5,7 +5,8 @@
(module hash mzscheme (module hash mzscheme
(require mzlib/etc) (require mzlib/etc
scheme/mpair)
(provide (rename my-make-hash-table s:make-hash-table) (provide (rename my-make-hash-table s:make-hash-table)
(rename my-hash-table? s:hash-table?) (rename my-hash-table? s:hash-table?)
@ -92,7 +93,7 @@
(define (%hash-table-walk proc entries) (define (%hash-table-walk proc entries)
(do ((index (- (vector-length entries) 1) (- index 1))) (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) (define (%hash-table-maybe-resize! hash-table)
(let* ((old-entries (my-hash-table-entries hash-table)) (let* ((old-entries (my-hash-table-entries hash-table))

2
collects/tests/srfi/load-srfis.ss
View File

@ -35,7 +35,6 @@
(require srfi/61) (require srfi/61)
(require srfi/63) (require srfi/63)
(require srfi/64) (require srfi/64)
(require srfi/66)
(require srfi/67) (require srfi/67)
(require srfi/69) (require srfi/69)
(require srfi/71) (require srfi/71)
@ -73,7 +72,6 @@
(require srfi/61/cond) (require srfi/61/cond)
(require srfi/63/63) (require srfi/63/63)
(require srfi/64/testing) (require srfi/64/testing)
(require srfi/66/66)
(require srfi/67/compare) (require srfi/67/compare)
(require srfi/69/hash) (require srfi/69/hash)
(require srfi/71/letvalues) (require srfi/71/letvalues)