Skip to content
Browse files

Revert pipeline setup to a correct version.

  • Loading branch information...
1 parent ee385af commit e4c449e12e1e3ef655a5e4eda31ec7baf05e8e81 @briantrice committed Nov 10, 2011
Showing with 3 additions and 2 deletions.
  1. +3 −2 src/demo/wc
View
5 src/demo/wc
@@ -33,8 +33,9 @@ rawInputs doWithIndex:
in reader sessionDo:
[| :r pipe |
pipe := r.
- countTypes do: [| :type |
- (countFlags at: type) ifTrue: [pipe := pipe echoTo: ((counts at: type) at: idx)]]].
+ (countFlags at: #byte) ifTrue: [pipe := pipe echoTo: (byteCounts at: idx)].
+ (countFlags at: #line) ifTrue: [pipe := pipe lines echoTo: (lineCounts at: idx)].
+ (countFlags at: #word) ifTrue: [pipe := pipe split echoTo: (wordCounts at: idx)]]].
_@here printCountsAt: index
[

0 comments on commit e4c449e

Please sign in to comment.
Something went wrong with that request. Please try again.