57 lines
2.1 KiB
Scheme
57 lines
2.1 KiB
Scheme
#!r6rs
|
|
(library (srfi srfi-125)
|
|
(export
|
|
make-hash-table hash-table hash-table-unfold alist->hash-table
|
|
|
|
hash-table? hash-table-contains? hash-table-empty? hash-table=?
|
|
hash-table-mutable?
|
|
|
|
hash-table-ref hash-table-ref/default
|
|
|
|
hash-table-set! hash-table-delete! hash-table-intern! hash-table-update!
|
|
hash-table-update!/default hash-table-pop! hash-table-clear!
|
|
|
|
hash-table-size hash-table-keys hash-table-values hash-table-entries
|
|
hash-table-find hash-table-count
|
|
|
|
hash-table-map hash-table-for-each hash-table-map! hash-table-map->list
|
|
hash-table-fold hash-table-prune!
|
|
|
|
hash-table-copy hash-table-empty-copy hash-table->alist
|
|
|
|
hash-table-union! hash-table-intersection! hash-table-difference!
|
|
hash-table-xor!
|
|
|
|
;; The following procedures are deprecated by SRFI 125:
|
|
|
|
deprecated:hash
|
|
deprecated:string-hash
|
|
deprecated:string-ci-hash
|
|
deprecated:hash-by-identity
|
|
deprecated:hash-table-equivalence-function
|
|
deprecated:hash-table-hash-function
|
|
deprecated:hash-table-exists?
|
|
deprecated:hash-table-walk
|
|
deprecated:hash-table-merge!)
|
|
|
|
(import (except (rnrs)
|
|
make-hashtable hashtable-clear! hashtable-copy
|
|
hashtable-ref hashtable-update! make-eq-hashtable
|
|
make-eqv-hashtable)
|
|
(srfi private include)
|
|
(rename (srfi :126)
|
|
(hashtable? hash-table?)
|
|
(hashtable-contains? hash-table-contains?)
|
|
(hashtable-empty? hash-table-empty?)
|
|
(hashtable-intern! hash-table-intern!)
|
|
(hashtable-clear! hash-table-clear!)
|
|
(hashtable-copy hash-table-copy)
|
|
(hashtable-size hash-table-size)
|
|
(hashtable-pop! hash-table-pop!)
|
|
(hashtable-merge! hash-table-merge!)
|
|
(hashtable-hash-function hash-table-hash-function)
|
|
(hashtable-equivalence-function hash-table-equivalence-function))
|
|
(except (srfi :128) hash-salt string-hash string-ci-hash symbol-hash))
|
|
|
|
(include/resolve ("srfi" "%3a125") "125.body.scm"))
|