From 9566faf500204b93230f532c879662528f53815f Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 6 Jun 2016 06:28:12 -0700 Subject: 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! --- lib.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib.c') 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: -- cgit v1.2.3