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). --- lib.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib.c') 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