Add `bag-empty?`
This commit is contained in:
parent
17cee51342
commit
e4a1a6e075
|
@ -8,6 +8,7 @@
|
||||||
bag-ref
|
bag-ref
|
||||||
bag-clear!
|
bag-clear!
|
||||||
bag-member?
|
bag-member?
|
||||||
|
bag-empty?
|
||||||
bag-key-count
|
bag-key-count
|
||||||
in-bag
|
in-bag
|
||||||
in-bag/count
|
in-bag/count
|
||||||
|
@ -52,6 +53,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-empty? hash-empty?)
|
||||||
(define bag-key-count hash-count)
|
(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 ...))
|
||||||
|
|
Loading…
Reference in New Issue