From 8ea3c6bfbb82c122bd93abb02a3600c3512ff24c Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 12 Jun 2019 07:56:58 -0700
Subject: toseq: remove unused function.

* lib.c (toseq): Function removed.

* lib.h (toseq): Declaration removed.
---
 lib.c | 15 ---------------
 1 file changed, 15 deletions(-)

(limited to 'lib.c')

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)) {
-- 
cgit v1.2.3