From f03c9c05494997d4d1d64594fd357170f45d2da2 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Sun, 16 Oct 2016 11:11:54 -0700 Subject: 3507 --- 088file.mu | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to '088file.mu') diff --git a/088file.mu b/088file.mu index b3c724c0..80a6be2b 100644 --- a/088file.mu +++ b/088file.mu @@ -19,7 +19,7 @@ def start-reading resources:&:resources, filename:text -> contents:&:source:char file:num <- $open-file-for-reading filename assert file, [file not found] contents:&:source:char, sink:&:sink:char <- new-channel 30 - start-running transmit-from-file file, sink + start-running receive-from-file file, sink return } # fake file system @@ -36,13 +36,13 @@ def start-reading resources:&:resources, filename:text -> contents:&:source:char loop-unless found? contents:&:source:char, sink:&:sink:char <- new-channel 30 curr-contents:text <- get tmp, contents:offset - start-running transmit-from-text curr-contents, sink + start-running receive-from-text curr-contents, sink return } return 0/not-found ] -def transmit-from-file file:num, sink:&:sink:char -> sink:&:sink:char [ +def receive-from-file file:num, sink:&:sink:char -> sink:&:sink:char [ local-scope load-ingredients { @@ -55,7 +55,7 @@ def transmit-from-file file:num, sink:&:sink:char -> sink:&:sink:char [ file <- $close-file file ] -def transmit-from-text contents:text, sink:&:sink:char -> sink:&:sink:char [ +def receive-from-text contents:text, sink:&:sink:char -> sink:&:sink:char [ local-scope load-ingredients i:num <- copy 0 -- cgit 1.4.1-2-gfad0