diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2019-09-06 07:23:09 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2019-09-06 07:23:09 -0700 |
commit | 8828d5451779a2802a97c602c68beab96f77d650 (patch) | |
tree | 7125035b9d519f6aab0ec89a832e0c31361a7b1d | |
parent | 4012973cd1fa083cdc3f0e0b9258628e840a24d1 (diff) | |
download | txr-8828d5451779a2802a97c602c68beab96f77d650.tar.gz txr-8828d5451779a2802a97c602c68beab96f77d650.tar.bz2 txr-8828d5451779a2802a97c602c68beab96f77d650.zip |
seq_info: bug: nil for objects with only length method.
* lib.c (seq_info): Add missing else, which makes the function
return nil for objects that have a length method, but not a
car method.
-rw-r--r-- | lib.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -292,7 +292,7 @@ seq_info_t seq_info(val obj) } else { if (get_special_slot(obj, length_m)) ret.kind = SEQ_VECLIKE; - if (get_special_slot(obj, car_m)) + else if (get_special_slot(obj, car_m)) ret.kind = SEQ_LISTLIKE; else ret.kind = SEQ_NOTSEQ; |