Fix mingw build warnings.

This commit is contained in:
Calvin Rose
2024-08-20 18:24:54 -05:00
parent ce528251d5
commit e88aab6d68
+3 -1
View File
@@ -50,7 +50,9 @@
[]
(assert (zero? (ev/count chan)) "channel check empty")
(ev/sleep 0) # turn the event loop
(assert (zero? (ev/count chan)) "channel check empty"))
(assert (zero? (ev/count chan)) "channel check empty")
# Drain if not empty, help with failures after this
(while (pos? (ev/count chan)) (printf "extra: %p" (ev/take chan))))
(defn spit-file
[dir name]