summaryrefslogtreecommitdiffstats
path: root/lib.c
diff options
context:
space:
mode:
Diffstat (limited to 'lib.c')
-rw-r--r--lib.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/lib.c b/lib.c
index d162fe98..1ca81fc8 100644
--- a/lib.c
+++ b/lib.c
@@ -7757,7 +7757,7 @@ toobig:
static val simple_lazy_stream_func(val stream, val lcons)
{
if (set(mkloc(lcons->lc.car, lcons), get_line(stream)) != nil) {
- set(mkloc(lcons->lc.cdr, lcons), make_lazy_cons(lcons->lc.func));
+ set(mkloc(lcons->lc.cdr, lcons), make_lazy_cons(us_lcons_fun(lcons)));
} else {
close_stream(stream, t);
lcons->lc.cdr = nil;
@@ -7785,7 +7785,8 @@ static val lazy_stream_func(val env, val lcons)
val prefetched_line = cdr(env);
set(mkloc(lcons->lc.car, lcons), prefetched_line);
- set(mkloc(lcons->lc.cdr, lcons), lazy_stream_cont(stream, lcons->lc.func, env));
+ set(mkloc(lcons->lc.cdr, lcons), lazy_stream_cont(stream,
+ us_lcons_fun(lcons), env));
return prefetched_line;
}