syndicate-lang
/
syndicate-rkt
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

bag-key-count

This commit is contained in:
Tony Garnock-Jones 2018-04-29 16:08:01 +01:00
parent b3d6b74dab
commit 5b435ee8d8
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
syndicate/bag.rkt
View File

@ -8,6 +8,7 @@
bag-ref
bag-clear!
bag-member?
bag-key-count
in-bag
in-bag/count
set->bag
@ -49,6 +50,7 @@
(define bag-clear! hash-clear!)
(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/count piece ...) (in-hash piece ...))