summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--stream.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/stream.c b/stream.c
index 3dd76a4d..0ca0f799 100644
--- a/stream.c
+++ b/stream.c
@@ -894,10 +894,10 @@ static val stdio_fill_buf(val stream, val buf, cnum pos)
if (h->f != 0) {
cnum nread = fread(ptr + pos, 1, len - pos, h->f);
if (nread > 0)
- return unum(pos + nread);
+ return num(pos + nread);
}
stdio_maybe_read_error(stream);
- return zero;
+ return num(pos);
}
static val stdio_close(val stream, val throw_on_error)