From c65f9d8f92f944f8bb7a1e87e67fa9a3db85ddf7 Mon Sep 17 00:00:00 2001
From: Teddy Wing
Date: Sat, 6 Feb 2021 20:39:27 +0100
Subject: wait: Exit when `<= 0` instead of `= 0`

Just in case the counter becomes negative before the loop condition
runs.
---
 src/wait-group.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/wait-group.lisp b/src/wait-group.lisp
index b47f07b..b2bc22f 100644
--- a/src/wait-group.lisp
+++ b/src/wait-group.lisp
@@ -40,4 +40,4 @@
 
 (defmethod wait ((wait-group wait-group))
   "TODO"
-  (loop until (= (counter wait-group) 0)))
+  (loop until (<= (counter wait-group) 0)))
-- 
cgit v1.2.3