1
0
mirror of https://github.com/janet-lang/janet synced 2025-01-05 05:10:26 +00:00

Fix mingw build warnings.

This commit is contained in:
Calvin Rose 2024-08-20 18:06:57 -05:00
parent ce528251d5
commit e88aab6d68

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]