From 24cdc7adf5611d536403ae625414bb10f3bc4f93 Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Tue, 20 Jul 2021 21:58:46 +0000 Subject: Add a new work in progress loader to load all user defined modules --- streams.c | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'streams.c') diff --git a/streams.c b/streams.c index beed5b1..5706566 100644 --- a/streams.c +++ b/streams.c @@ -323,7 +323,8 @@ peekchar(Term *t) { Stream *s = getstream(t); Rune r = Bgetrune(s->bio); - Bungetrune(s->bio); + if(r != Beof) + Bungetrune(s->bio); return r; } @@ -412,11 +413,12 @@ Term *streamproperties(Stream *s) /* end_of_stream(E) */ if(s->mode == ReadStream){ Rune r = Bgetrune(s->bio); - Bungetrune(s->bio); if(r == Beof) arg = mkatom(L"at"); - else + else{ + Bungetrune(s->bio); arg = mkatom(L"not"); + } data = copyterm(stream, nil); data->next = mkcompound(L"end_of_stream", 1, arg); prop = mkcompound(L"prop", 2, data); -- cgit v1.2.3