From 7e55db0de7ae09f1ac4e437baa1bf78e92a6f4a7 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sat, 28 Dec 2024 10:43:00 +0000 Subject: [PATCH] Consistently use non-blocking --- knots/non-blocking.scm | 6 +++--- tests/non-blocking.scm | 2 +- tests/web-server.scm | 2 +- 3 files changed, 5 insertions(+), 5 deletions(-) diff --git a/knots/non-blocking.scm b/knots/non-blocking.scm index 5914143..f29713a 100644 --- a/knots/non-blocking.scm +++ b/knots/non-blocking.scm @@ -21,7 +21,7 @@ #:use-module (web uri) #:use-module (web client) #:export (non-blocking-port - nonblocking-open-socket-for-uri)) + non-blocking-open-socket-for-uri)) (define (non-blocking-port port) "Make PORT non-blocking and return it." @@ -30,8 +30,8 @@ (fcntl port F_SETFL (logior O_NONBLOCK flags))) port)) -(define* (nonblocking-open-socket-for-uri uri - #:key (verify-certificate? #t)) +(define* (non-blocking-open-socket-for-uri uri + #:key (verify-certificate? #t)) (define tls-wrap (@@ (web client) tls-wrap)) diff --git a/tests/non-blocking.scm b/tests/non-blocking.scm index 0f81f58..25efee8 100644 --- a/tests/non-blocking.scm +++ b/tests/non-blocking.scm @@ -26,6 +26,6 @@ (response-code (http-get uri - #:port (nonblocking-open-socket-for-uri uri))))))) + #:port (non-blocking-open-socket-for-uri uri))))))) (display "non-blocking test finished successfully\n") diff --git a/tests/web-server.scm b/tests/web-server.scm index 5a76d0f..0254795 100644 --- a/tests/web-server.scm +++ b/tests/web-server.scm @@ -25,6 +25,6 @@ (response-code (http-get uri - #:port (nonblocking-open-socket-for-uri uri))))))) + #:port (non-blocking-open-socket-for-uri uri))))))) (display "web-server test finished successfully\n")