sink shortcuts

vito · Mar 18, 2010 · 449ca06 · 449ca06
1 parent 76bb4f3
commit 449ca06
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/core/stream.slate b/src/core/stream.slate
@@ -268,14 +268,17 @@ s@(WriteStream traits) ; c
   s
 ].
 
-source@(Stream traits) >> sink
+source@(Stream traits) >> sink@(WriteStream traits)
 "Write the contents from source to target one element at a time."
 [
   [source isAtEnd]
     whileFalse: [sink nextPut: source next].
   sink
 ].
 
+source@(Stream traits) >> sink
+[source >> sink writer].
+
 sink@(Stream traits) << source
 [source >> sink].