From 289c8aec7ecdf837ae5ba01987ec3f34e3307b78 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 12 Feb 2015 20:01:03 -0800 Subject: * lib.c (list_collect, list_collect_append): In error messages about bad appends, do not show the list being appended because it may be an infinite lazy list. For instance (append* 3 lazy-list). --- ChangeLog | 7 +++++++ lib.c | 4 ++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 5fd0b7f0..c436a7c3 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2015-02-12 Kaz Kylheku + + * lib.c (list_collect, list_collect_append): In error + messages about bad appends, do not show the list being + appended because it may be an infinite lazy list. + For instance (append* 3 lazy-list). + 2015-02-12 Kaz Kylheku New functions pad and weave. diff --git a/lib.c b/lib.c index d4cc50cc..17728fc3 100644 --- a/lib.c +++ b/lib.c @@ -611,7 +611,7 @@ loc list_collect(loc ptail, val obj) replace_str(deref(ptail), cons(obj, nil), t, t); return ptail; default: - uw_throwf(error_s, lit("cannot append ~s to ~s"), obj, deref(ptail), nao); + uw_throwf(error_s, lit("cannot append ~s"), deref(ptail), nao); } } @@ -666,7 +666,7 @@ loc list_collect_append(loc ptail, val obj) replace_str(deref(ptail), obj, t, t); return ptail; default: - uw_throwf(error_s, lit("cannot append ~s to ~s"), obj, deref(ptail), nao); + uw_throwf(error_s, lit("cannot append to ~s"), deref(ptail), nao); } } -- cgit v1.2.3