From 5455bb27b00108920a566bdfb4eea21b2d7e4569 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Wed, 28 Apr 2021 21:09:43 -0400
Subject: queue: Add queue-clear! procedure.

---
 chickadee/queue.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/chickadee/queue.scm b/chickadee/queue.scm
index 51cec76..39f6318 100644
--- a/chickadee/queue.scm
+++ b/chickadee/queue.scm
@@ -25,7 +25,8 @@
             queue-length
             queue-empty?
             enqueue!
-            dequeue!))
+            dequeue!
+            queue-clear!))
 
 (define-record-type <queue>
   (%make-queue input output)
@@ -66,3 +67,8 @@
                (array-list-push! output (array-list-pop! input))
                (loop))))
          (array-list-pop! output))))
+
+(define (queue-clear! q)
+  "Remove all items from Q."
+  (array-list-clear! (queue-input q))
+  (array-list-clear! (queue-output q)))
-- 
cgit v1.2.3