diff --git a/scsh/network.scm b/scsh/network.scm index 73775c0..50954b7 100644 --- a/scsh/network.scm +++ b/scsh/network.scm @@ -207,9 +207,9 @@ (> (string-length name) 107)) (error "bind-socket: path too long" name)) (else - %bind (socket->fdes sock) - family - (socket-address:address name))))))) + (%bind (socket->fdes sock) + family + (socket-address:address name)))))))) (import-os-error-syscall %bind (sockfd family name) "scheme_bind")