From 47219d0b2b41096547a02b506d7413fe9a3d308a Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Thu, 18 Aug 2016 20:44:56 -0700 Subject: 3224 --- 088file.mu | 5 ----- 1 file changed, 5 deletions(-) (limited to '088file.mu') diff --git a/088file.mu b/088file.mu index 25263fa9..6e6a89e1 100644 --- a/088file.mu +++ b/088file.mu @@ -10,9 +10,6 @@ def start-reading fs:address:filesystem, filename:address:array:character -> con load-ingredients x:number/file <- $open-file-for-reading filename contents:address:source:character, sink:address:sink:character <- new-channel 30 - $print [sink: ], sink, 10/newline - chan:address:channel:character <- get *sink, chan:offset - $print [chan in start-reading: ], chan, 10/newline start-running transmit x, sink ] @@ -25,7 +22,5 @@ def transmit file:number, sink:address:sink:character -> file:number, sink:addre sink <- write sink, c loop } - $print [closing chan after reading file], 10/newline sink <- close sink - $print [returning from 'transmit'], 10/newline ] -- cgit 1.4.1-2-gfad0