3 files changed, 3 insertions(+), 3 deletions(-)

M fs/lib/file.fs
M fs/xcomp/boothi.fs
M fs/xcomp/glue2.fs

@@ 3,7 3,7 @@
 \ This creates a "f<" reader with the file descriptor embedded in it. This
 \ allows for a straightforward override of input/output words.
 : [f<] ( curfd -- word )
-  scratch[ litn compile fread exit, ]scratch ;
+  scratch[ litn compile fgetc exit, ]scratch ;
 
 \ Autoloading
 

@@ 1,7 1,7 @@
 0 value curfd \ file descriptor of the file currently being read
 0 value floaded \ address of the current "loaded file" structure
 0 value fecho
-: f< ( -- c ) curfd fread fecho if dup emit then ;
+: f< ( -- c ) curfd fgetc fecho if dup emit then ;
 : fload ( fname -- )
   floaded here to floaded , ( fname )
   dup c@ 1+ move, ( )

@@ 1,5 1,5 @@
 \ Glue code that goes between the filesystem part and boothi
 readFAT
 alias fat16open fopen
-alias fat16getc fread
+alias fat16getc fgetc
 alias fat16close fclose