toseq: remove unused function.

* lib.c (toseq): Function removed.

* lib.h (toseq): Declaration removed.

2 files changed, 0 insertions, 16 deletions

diff --git a/lib.c b/lib.c
index 3eacaa3d..45e5b865 100644
--- a/lib.c
+++ b/lib.c
@@ -973,21 +973,6 @@ val make_like(val list, val thatobj)
   return list;
 }
 
-val toseq(val seq)
-{
-  seq_info_t si = seq_info(seq);
-
-  switch (si.kind) {
-  case SEQ_NIL:
-    return nil;
-  case SEQ_LISTLIKE:
-  case SEQ_VECLIKE:
-    return (si.type == COBJ) ? si.obj : nullify(si.obj);
-  default:
-    return cons(si.obj, nil);
-  }
-}
-
 val tolist(val seq)
 {
   switch (type(seq)) {
diff --git a/lib.h b/lib.h
index 913e1814..6189d225 100644
--- a/lib.h
+++ b/lib.h
@@ -588,7 +588,6 @@ val rcyc_pop(val *plist);
 val push(val v, val *plist);
 val copy_list(val list);
 val make_like(val list, val thatobj);
-val toseq(val obj);
 val tolist(val seq);
 val nullify(val seq);
 val seqp(val obj);