--- a/ExternalStream.st Mon Feb 08 11:42:29 2010 +0100
+++ b/ExternalStream.st Mon Feb 08 11:43:33 2010 +0100
@@ -2224,8 +2224,12 @@
"close the stream - tell operating system"
self isOpen ifTrue:[
- Lobby unregister:self.
- self closeFile.
+ Lobby unregister:self.
+ PrimitiveFailure handle:[:ex |
+ ('ExternalStream [info] error in close cought (%1).' bindWith:self printString) errorPrintCR.
+ ] do:[
+ self closeFile.
+ ].
]
!
@@ -5689,11 +5693,11 @@
!ExternalStream class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.337 2010-02-04 17:45:38 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.338 2010-02-08 10:43:33 sr Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.337 2010-02-04 17:45:38 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.338 2010-02-08 10:43:33 sr Exp $'
! !
ExternalStream initialize!