[Help-smalltalk] A couple of patches

[Mike Anderson]

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
 !