From c65154ac69dcabcaaba4f20f1adb464d9b5b1a23 Mon Sep 17 00:00:00 2001 From: Michael Gran Date: Wed, 30 Dec 2020 05:39:33 -0800 Subject: [PATCH] avoid a ports test when fcntl is not provided * test-suite/tests/ports.test (non blocking I/O): disable test when fcntl is not provided --- test-suite/tests/ports.test | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test-suite/tests/ports.test b/test-suite/tests/ports.test index bd7a927f7..9aa486e98 100644 --- a/test-suite/tests/ports.test +++ b/test-suite/tests/ports.test @@ -660,7 +660,7 @@ (close-fdes fdes) #t)))) -(when (provided? 'threads) +(when (and (provided? 'threads) (provided? 'fcntl)) (let* ((p (pipe)) (r (car p)) (w (cdr p)))