scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Better error message for socket-connect

This commit is contained in:
mainzelm 2003-10-09 16:51:10 +00:00
parent ca97d21195
commit 37b31fc65a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scsh/network.scm
View File

@ -24,7 +24,7 @@
(service-info (cadr args) "tcp"))) (service-info (cadr args) "tcp")))
(else (else
(error (error
"socket-connect: bad arg ~s" "socket-connect: bad port arg ~s"
args))))) args)))))
(internet-address->socket-address host port))) (internet-address->socket-address host port)))
((= protocol-family ((= protocol-family