Updated release image date.

[cslatevm.git] / tests / benchmark / sumfile.slate

name@(String traits) sumfile
[| sum |
  sum := 0.
  (File newNamed: name &mode: File Read)
    sessionDo: [| :file stream |
      stream := file reader.
      [stream isAtEnd] whileFalse: [sum += stream nextLine as: Integer]].
  sum
].