3238

Clean up primitive for reading from file. Never return EOF character.
Stop using null character to indicate EOF as well. Instead, always use a
second product to indicate EOF, and require calls to use it.

1 files changed, 2 insertions, 2 deletions

diff --git a/088file.mu b/088file.mu
index b18919d0..651f9e8a 100644
--- a/088file.mu
+++ b/088file.mu
@@ -45,8 +45,8 @@ def transmit-from-file file:number, sink:address:sink:character -> sink:address:
   local-scope
   load-ingredients
   {
-    c:character <- $read-from-file file
-    break-unless c
+    c:character, eof?:boolean <- $read-from-file file
+    break-if eof?
     sink <- write sink, c
     loop
   }