summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2019-09-04 07:27:13 -0700
committerKaz Kylheku <kaz@kylheku.com>2019-09-04 07:27:13 -0700
commit8748bf01cc537e8e769a5898e9dfd745de4204fa (patch)
tree5e4f3469ec11ddaeb2e9b647558d6aeb5168f5da
parent22fc1e31ab1068c677123654dba8a644a9defc08 (diff)
downloadtxr-8748bf01cc537e8e769a5898e9dfd745de4204fa.tar.gz
txr-8748bf01cc537e8e769a5898e9dfd745de4204fa.tar.bz2
txr-8748bf01cc537e8e769a5898e9dfd745de4204fa.zip
seq_info: remove redundant car slot lookup.
* lib.c (seq_info): Due to a copy-paste error maybe_slot is being accidentally called here twice for the same slot. Removing.
-rw-r--r--lib.c2
1 files changed, 0 insertions, 2 deletions
diff --git a/lib.c b/lib.c
index 08e1d5ea..743e6ff2 100644
--- a/lib.c
+++ b/lib.c
@@ -294,8 +294,6 @@ seq_info_t seq_info(val obj)
ret.kind = SEQ_VECLIKE;
if (maybe_slot(obj, car_s))
ret.kind = SEQ_LISTLIKE;
- if (maybe_slot(obj, car_s))
- ret.kind = SEQ_LISTLIKE;
else
ret.kind = SEQ_NOTSEQ;
}