bag-key-count
This commit is contained in:
parent
b3d6b74dab
commit
5b435ee8d8
|
@ -8,6 +8,7 @@
|
||||||
bag-ref
|
bag-ref
|
||||||
bag-clear!
|
bag-clear!
|
||||||
bag-member?
|
bag-member?
|
||||||
|
bag-key-count
|
||||||
in-bag
|
in-bag
|
||||||
in-bag/count
|
in-bag/count
|
||||||
set->bag
|
set->bag
|
||||||
|
@ -49,6 +50,7 @@
|
||||||
|
|
||||||
(define bag-clear! hash-clear!)
|
(define bag-clear! hash-clear!)
|
||||||
(define bag-member? hash-has-key?)
|
(define bag-member? hash-has-key?)
|
||||||
|
(define bag-key-count hash-count)
|
||||||
|
|
||||||
(define-syntax-rule (in-bag piece ...) (in-hash-keys piece ...))
|
(define-syntax-rule (in-bag piece ...) (in-hash-keys piece ...))
|
||||||
(define-syntax-rule (in-bag/count piece ...) (in-hash piece ...))
|
(define-syntax-rule (in-bag/count piece ...) (in-hash piece ...))
|
||||||
|
|
Loading…
Reference in New Issue