ExternalStream.st
changeset 530 07d0bce293c9
parent 521 70533ec40482
child 537 dc4dad8a5ddd
--- 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) );