From e70b86f02d73d1fc2def5e3cf4e5f010cae4b0cc Mon Sep 17 00:00:00 2001 From: retropikzel Date: Sat, 17 Jan 2026 10:39:17 +0200 Subject: [PATCH] Add integer check and fix typo in SRFI-106 --- srfi/106.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/srfi/106.scm b/srfi/106.scm index 2ca1666..adbb872 100644 --- a/srfi/106.scm +++ b/srfi/106.scm @@ -167,6 +167,8 @@ (define (socket-recv socket size . flags) ;; TODO FIXME If connection is closed return empty bytevector + (when (not (integer? size)) + (error "socket-recv error: size must be integer" size)) (let* ((msg-type (if (null? flags) (message-type 'none) (apply message-type flags))) @@ -268,7 +270,7 @@ (raise-continuable "make-server-socket (setsockopt SO-REUSEPORT) error")) (when (< (c-bind socket-file-descriptor ai-addr ai-addr-len) 0) (c-perror (string->c-utf8 "make-server-socket (bind) error")) - (raise-continuable "make-servever-socket (bind) error")) + (raise-continuable "make-server-socket (bind) error")) (when (< (c-listen socket-file-descriptor 5) 0) (c-perror (string->c-utf8 "make-server-socket (listen) error")) (raise-continuable "make-server-socket (listen) error"))