From e4a1a6e075e5cbc8f957eacc0d39ccc25c9207db Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Wed, 2 May 2018 18:20:24 +0100
Subject: [PATCH] Add `bag-empty?`

---
 syndicate/bag.rkt | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/syndicate/bag.rkt b/syndicate/bag.rkt
index 776317e..3d84fd6 100644
--- a/syndicate/bag.rkt
+++ b/syndicate/bag.rkt
@@ -8,6 +8,7 @@
          bag-ref
          bag-clear!
          bag-member?
+         bag-empty?
          bag-key-count
          in-bag
          in-bag/count
@@ -52,6 +53,7 @@
 
 (define bag-clear! hash-clear!)
 (define bag-member? hash-has-key?)
+(define bag-empty? hash-empty?)
 (define bag-key-count hash-count)
 
 (define-syntax-rule (in-bag piece ...) (in-hash-keys piece ...))