summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2016-06-06 06:28:12 -0700
committerKaz Kylheku <kaz@kylheku.com>2016-06-06 06:28:12 -0700
commit9566faf500204b93230f532c879662528f53815f (patch)
tree1a89eaeb51541ed6b6719c7abb5616d7c9e9f7ac
parent06a38835893bc5be6ab7d00f692ecadab8a3dea9 (diff)
downloadtxr-9566faf500204b93230f532c879662528f53815f.tar.gz
txr-9566faf500204b93230f532c879662528f53815f.tar.bz2
txr-9566faf500204b93230f532c879662528f53815f.zip
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!
-rw-r--r--lib.c2
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: