The Trunk: System-cmm.711.mcz

Chris Muller uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-cmm.711.mcz

==================== Summary ====================

Name: System-cmm.711
Author: cmm
Time: 26 March 2015, 5:04:31.955 pm
UUID: fa6a3065-f10d-4b53-bdea-3177e86664ed
Ancestors: System-topa.710

- Log filed-in code to the changes file.

=============== Diff against System-topa.710 ===============

Item was changed:
  ----- Method: PositionableStream>>fileInAnnouncing: (in category '*System-Changes-fileIn/Out') -----
  fileInAnnouncing: announcement
  "This is special for reading expressions from text that has been formatted
  with exclamation delimitors. The expressions are read and passed to the
  Compiler. Answer the result of compilation.  Put up a progress report with
       the given announcement as the title."
 
  | val |
  announcement
  displayProgressFrom: 0
  to: self size
  during:
  [:bar |
  [self atEnd] whileFalse:
  [bar value: self position.
  self skipSeparators.
 
  [ | chunk |
  val := (self peekFor: $!!)
+ ifTrue: [(Compiler evaluate: self nextChunk logged: true) scanFrom: self]
- ifTrue: [(Compiler evaluate: self nextChunk logged: false) scanFrom: self]
  ifFalse:
  [chunk := self nextChunk.
  self checkForPreamble: chunk.
  Compiler evaluate: chunk logged: true]]
  on: InMidstOfFileinNotification
  do: [:ex | ex resume: true].
  self skipStyleChunk].
  self close].
  "Note:  The main purpose of this banner is to flush the changes file."
  Smalltalk logChange: '----End fileIn of ' , self name , '----'.
  self flag: #ThisMethodShouldNotBeThere. "sd"
  ^val!