Better error message for socket-connect

2003-10-09 16:51:10 +00:00 · 2003-10-09 16:51:10 +00:00 · 37b31fc65a
parent ca97d21195
commit 37b31fc65a
1 changed files with 1 additions and 1 deletions
--- a/scsh/network.scm
+++ b/scsh/network.scm
@ -24,7 +24,7 @@
 					   (service-info (cadr args) "tcp")))
 					 (else
 					  (error
-					   "socket-connect: bad arg ~s"
+					   "socket-connect: bad port arg ~s"
 					   args)))))
 			(internet-address->socket-address host port)))
 		     ((= protocol-family