From 3388b5baed9b9288ccd4fcd7611f936cb6025469 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 12 Mar 2019 22:49:39 -0700 Subject: lib: use accessor for lcons function. * hash.c (hash_keys_lazy, hash_values_lazy, hash_pairs_lazy, hash_alist_lazy): Use us_lcons_fun instead of direct lcons->lc.fun access. * lib.c (simple_lazy_stream_func, lazy_stream_func): Likewise. --- lib.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'lib.c') 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; } -- cgit v1.2.3