diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2016-06-06 06:28:12 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2016-06-06 06:28:12 -0700 |
commit | 9566faf500204b93230f532c879662528f53815f (patch) | |
tree | 1a89eaeb51541ed6b6719c7abb5616d7c9e9f7ac | |
parent | 06a38835893bc5be6ab7d00f692ecadab8a3dea9 (diff) | |
download | txr-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.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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: |