diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2017-05-04 22:23:22 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2017-05-04 22:23:22 -0700 |
commit | 572f3d7b17e4411aa34acda11a74befe8d3315a6 (patch) | |
tree | 9a487649a58f2650b41f11868cc634b18b9cbd79 | |
parent | 597647887c6bb92b1c0f49a9e73329e14d441a87 (diff) | |
download | txr-572f3d7b17e4411aa34acda11a74befe8d3315a6.tar.gz txr-572f3d7b17e4411aa34acda11a74befe8d3315a6.tar.bz2 txr-572f3d7b17e4411aa34acda11a74befe8d3315a6.zip |
length: support buffer objects.
* lib.c (length): Handle BUF case via length_buf.
-rw-r--r-- | lib.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -9051,6 +9051,8 @@ val length(val seq) return length_vec(seq); case RNG: return minus(to(seq), from(seq)); + case BUF: + return length_buf(seq); case COBJ: if (seq->co.cls == hash_s) return hash_count(seq); |