From 46b7f60f9fa32fd2a8c2162cf108dc89d3d95196 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 7 Jul 2014 20:15:40 -0700 Subject: * lib.c (replace_list, sel): fix use of unused variable. --- ChangeLog | 4 ++++ lib.c | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index f833dd21..a6a1c27c 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2014-07-07 Kaz Kylheku + + * lib.c (replace_list, sel): fix use of unused variable. + 2014-07-07 Kaz Kylheku * LICENSE: Small wording change. Add pointer to METALICENSE. diff --git a/lib.c b/lib.c index d8ac95e3..d6f4f080 100644 --- a/lib.c +++ b/lib.c @@ -777,7 +777,7 @@ val replace_list(val list, val items, val from, val to) nao); for (; seq && where && items; seq = cdr(seq), idx = plus(idx, one)) { - val wh; + val wh = nil; for (; where && lt(wh = car(where), idx); where = cdr(where)) ; /* empty */ @@ -5629,7 +5629,7 @@ val sel(val seq_in, val where_in) val idx = zero; for (; seq && where; seq = cdr(seq), idx = plus(idx, one)) { - val wh; + val wh = nil; for (; where && lt(wh = car(where), idx); where = cdr(where)) ; /* empty */ -- cgit v1.2.3