diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2016-10-16 11:11:54 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2016-10-16 11:11:54 -0700 |
commit | f03c9c05494997d4d1d64594fd357170f45d2da2 (patch) | |
tree | 4f23ed0b11ae785b9f3e2ece2c1238f0fb61bd17 /088file.mu | |
parent | 0cdaca2c0c78d3f8df4ca78d5e445844f0145ae4 (diff) | |
download | mu-f03c9c05494997d4d1d64594fd357170f45d2da2.tar.gz |
3507
Diffstat (limited to '088file.mu')
-rw-r--r-- | 088file.mu | 8 |
1 files changed, 4 insertions, 4 deletions
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 |