care for nonPositionable stream (stdin) in fileIn
authorClaus Gittinger <cg@exept.de>
Fri, 11 Dec 2009 17:54:52 +0100
changeset 12611 38d61d374d89
parent 12610 cfbb45980e28
child 12612 ee03ea72c743
care for nonPositionable stream (stdin) in fileIn
Smalltalk.st
--- a/Smalltalk.st	Fri Dec 11 17:54:29 2009 +0100
+++ b/Smalltalk.st	Fri Dec 11 17:54:52 2009 +0100
@@ -5642,9 +5642,9 @@
 
     inStream := streamArg.
     inStream isNil ifTrue:[^ false].
-    inStream := ChangeSet isNil
+    inStream := EncodedStream isNil
                     ifTrue:[ inStream ]
-                    ifFalse:[ ChangeSet decodedStreamFor:inStream ].
+                    ifFalse:[ EncodedStream decodedStreamFor:inStream ].
 
     lazy notNil ifTrue:[wasLazy := Compiler compileLazy:lazy].
     silent notNil ifTrue:[wasSilent := self silentLoading:silent].
@@ -7409,9 +7409,9 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.914 2009-11-18 17:57:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.915 2009-12-11 16:54:52 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.914 2009-11-18 17:57:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.915 2009-12-11 16:54:52 cg Exp $'
 ! !