Socket.st
branchjv
changeset 4309 637a89222029
parent 4277 5bbecb5de7e5
parent 4288 00e575acf898
child 4681 87d6e69daf7b
--- a/Socket.st	Wed Jan 25 17:16:40 2017 +0000
+++ b/Socket.st	Wed Feb 01 11:29:03 2017 +0000
@@ -3565,13 +3565,13 @@
 !
 
 socketAddressClass
-    "get the matchon SocketAddress class for this socket"
+    "get the matching SocketAddress class for this socket"
 
     |domainClass|
 
     domainClass := self class socketAddressClassForDomain:domain.
     domainClass isNil ifTrue:[
-	^ self error:'invalid (unsupported) domain'.
+        ^ self error:'invalid (unsupported) domain'.
     ].
     ^ domainClass.
 !
@@ -3759,6 +3759,7 @@
     "
 ! !
 
+
 !Socket methodsFor:'specials'!
 
 linger:anIntegerOrNil
@@ -4034,14 +4035,6 @@
     ^ self setSocketOption:#'TCP_NODELAY' argument:aBoolean argument:nil.
 ! !
 
-!Socket methodsFor:'testing'!
-
-isSocket
-    "return true, if the receiver is some kind of socket;
-     false returned here - the method is only redefined in Socket."
-
-    ^ true
-! !
 
 !Socket methodsFor:'waiting'!