--- a/ExternalStream.st Sat Nov 11 15:31:28 1995 +0100
+++ b/ExternalStream.st Sat Nov 11 16:28:41 1995 +0100
@@ -20,13 +20,6 @@
category:'Streams-External'
!
-ExternalStream comment:'
-COPYRIGHT (c) 1988 by Claus Gittinger
- All Rights Reserved
-
-$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.63 1995-11-10 16:46:21 cg Exp $
-'!
-
!ExternalStream primitiveDefinitions!
%{
@@ -150,9 +143,7 @@
!
version
-"
-$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.63 1995-11-10 16:46:21 cg Exp $
-"
+ ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.64 1995-11-11 15:22:41 cg Exp $'
!
documentation
@@ -2298,10 +2289,10 @@
/* remove EOL character */
if (len != 0) {
if (buffer[len-1] == '\n') {
- buffer[--len] = '\0';
+ buffer[--len] = '\0';
}
if ((len != 0) && (buffer[len-1] == '\r')) {
- buffer[--len] = '\0';
+ buffer[--len] = '\0';
}
}
RETURN ( __MKSTRING_L(buffer, len COMMA_CON) );