Fix useless tolist over COBJ objects.

* lib.c (tolist): Use mapcar_listout, to avoid
the conversion of the resulting list to the object's type,
making this whole operation useless!

1 files changed, 1 insertions, 1 deletions

diff --git a/lib.c b/lib.c
index a547973c..f6e740fd 100644
--- a/lib.c
+++ b/lib.c
@@ -706,7 +706,7 @@ val tolist(val seq)
   case LSTR:
     return list_str(seq);
   case COBJ:
-    return mapcar(identity_f, seq);
+    return mapcar_listout(identity_f, seq);
   case NIL:
   case CONS:
   case LCONS: