diff options
-rw-r--r-- | lib.c | 15 | ||||
-rw-r--r-- | lib.h | 1 |
2 files changed, 0 insertions, 16 deletions
@@ -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)) { @@ -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); |