mirror of
https://github.com/janet-lang/janet
synced 2025-01-06 22:00:27 +00:00
Fix mingw build warnings.
This commit is contained in:
parent
ce528251d5
commit
e88aab6d68
@ -50,7 +50,9 @@
|
|||||||
[]
|
[]
|
||||||
(assert (zero? (ev/count chan)) "channel check empty")
|
(assert (zero? (ev/count chan)) "channel check empty")
|
||||||
(ev/sleep 0) # turn the event loop
|
(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
|
(defn spit-file
|
||||||
[dir name]
|
[dir name]
|
||||||
|
Loading…
Reference in New Issue
Block a user