Retropikzel
/
foreign-c-srfis
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add integer check and fix typo in SRFI-106

This commit is contained in:
retropikzel 2026-01-17 10:39:17 +02:00
parent 7a565dc24d
commit e70b86f02d
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
srfi/106.scm
View File

@ -167,6 +167,8 @@
(define (socket-recv socket size . flags) (define (socket-recv socket size . flags)
;; TODO FIXME If connection is closed return empty bytevector ;; 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) (let* ((msg-type (if (null? flags)
(message-type 'none) (message-type 'none)
(apply message-type flags))) (apply message-type flags)))
@ -268,7 +270,7 @@
(raise-continuable "make-server-socket (setsockopt SO-REUSEPORT) error")) (raise-continuable "make-server-socket (setsockopt SO-REUSEPORT) error"))
(when (< (c-bind socket-file-descriptor ai-addr ai-addr-len) 0) (when (< (c-bind socket-file-descriptor ai-addr ai-addr-len) 0)
(c-perror (string->c-utf8 "make-server-socket (bind) error")) (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) (when (< (c-listen socket-file-descriptor 5) 0)
(c-perror (string->c-utf8 "make-server-socket (listen) error")) (c-perror (string->c-utf8 "make-server-socket (listen) error"))
(raise-continuable "make-server-socket (listen) error")) (raise-continuable "make-server-socket (listen) error"))