* eval.c (mapcarv, mappendv): Convert output to type of leftmost

input sequence.

* lib.c (make_like): New function.
(reverse, remq, remql, remqual, remove_if, keep_if, mapcar, mapcon,
mappend, set_diff): Convert output list to type of leftmost input
sequence.

* lib.h (make_like): Declared.

* txr.1: Documented.

1 files changed, 1 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index 80d1874c..301fe686 100644
--- a/lib.h
+++ b/lib.h
@@ -373,6 +373,7 @@ val *ltail(val *cons);
 val pop(val *plist);
 val push(val v, val *plist);
 val copy_list(val list);
+val make_like(val list, val thatobj);
 val nreverse(val in);
 val reverse(val in);
 val append2(val list1, val list2);