ExternalStream.st
changeset 1138 993e6ffdbf51
parent 1133 961f2b095c22
child 1141 8ea1b43f7034
--- a/ExternalStream.st	Thu Apr 04 22:34:29 1996 +0200
+++ b/ExternalStream.st	Sat Apr 06 15:23:05 1996 +0200
@@ -843,7 +843,6 @@
     int fd, ch;
     int _buffered;
     OBJ fp;
-    OBJ __MKSTRING_L();
 
     __INST(lastErrorNumber) = nil;
     if (((fp = __INST(filePointer)) != nil)
@@ -2529,7 +2528,6 @@
     int ch;
     int cnt = 0;
     OBJ fp;
-    OBJ __MKSTRING_L();
 
     if (((fp = __INST(filePointer)) != nil)
      && (__INST(mode) != @symbol(writeonly))) {
@@ -2643,7 +2641,6 @@
     REGISTER int index;
     int currSize, fastFlag;
     int atBeginOfLine = 1, inComment, inString, inPrimitive = 0;
-    OBJ __MKSTRING_L(), __MKSTRING_ST_L(), __MKEMPTYSTRING();
 
     __INST(lastErrorNumber) = nil;
     f = __FILEVal(__INST(filePointer));
@@ -3788,6 +3785,6 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.95 1996-04-02 22:01:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.96 1996-04-06 13:22:09 cg Exp $'
 ! !
 ExternalStream initialize!