PositionableStream.st
changeset 4717 db56d09f509a
parent 4716 e44df17fcbc7
child 4770 9a6dcf673683
--- a/PositionableStream.st	Fri Sep 10 16:53:59 1999 +0200
+++ b/PositionableStream.st	Fri Sep 10 16:55:36 1999 +0200
@@ -683,7 +683,7 @@
                 dontAskSignals := IdentityDictionary new.
             ].
             dontAskSignals at:sig put:#continue.
-            action = proceedValue = #continue.
+            action := proceedValue := #continue.
         ] ifFalse:[
             action == #keepForAll ifTrue:[
                 dontAskSignals isNil ifTrue:[
@@ -727,7 +727,7 @@
     ^ lastValue
 
     "Modified: / 3.2.1999 / 11:30:10 / cg"
-    "Modified: / 10.9.1999 / 16:51:20 / stefan"
+    "Modified: / 10.9.1999 / 16:54:01 / stefan"
 ! !
 
 !PositionableStream methodsFor:'positioning'!
@@ -1013,6 +1013,6 @@
 !PositionableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.81 1999-09-10 14:53:59 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.82 1999-09-10 14:55:36 stefan Exp $'
 ! !
 PositionableStream initialize!