summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lib.c15
-rw-r--r--lib.h1
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);