* 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).

1 files changed, 2 insertions, 2 deletions

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);
   }
 }