I'm pretty sure these are all the wrong way round...
Mike
diff -ur orig/tcp/Sockets.st mod/tcp/Sockets.st
--- orig/tcp/Sockets.st 2003-11-03 12:01:37.000000000 +0000
+++ mod/tcp/Sockets.st 2005-08-24 08:27:20.000000000 +0000
@@ -186,7 +186,7 @@
isOpen
"Answer whether the connection between the receiver and the remote
endpoint is still alive."
- self implementation isNil ifFalse: [ ^false ].
+ self implementation isNil ifTrue: [ ^false ].
^self implementation isOpen
!
--- orig/kernel/FileDescr.st 2003-11-24 11:42:02.000000000 +0000
+++ mod/kernel/FileDescr.st 2005-08-24 08:28:21.000000000 +0000
@@ -397,7 +397,7 @@
as presence of out of band data) has occurred on it"
| result |
self isOpen ifFalse: [ ^false ].
- result := self fileOp: 13 with: 2 ifFail: [ self close. 1 ].
+ result := self fileOp: 13 with: 2 ifFail: [ self close. 0 ].
^result == 1
!
@@ -405,7 +405,7 @@
"Answer whether the file is open and we can write from it"
| result |
self isOpen ifFalse: [ ^false ].
- result := self fileOp: 13 with: 1 ifFail: [ self close. 1 ].
+ result := self fileOp: 13 with: 1 ifFail: [ self close. 0 ].
^result == 1
!
@@ -413,7 +413,7 @@
"Answer whether the file is open and we can read from it"
| result |
self isOpen ifFalse: [ ^false ].
- result := self fileOp: 13 with: 0 ifFail: [ self close. 1 ].
+ result := self fileOp: 13 with: 0 ifFail: [ self close. 0 ].
^result == 1
!
_______________________________________________
help-smalltalk mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/help-smalltalk
