From f299b992d9c177d153b166774bc0f1c54e742cc2 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sun, 30 Jun 2019 22:25:06 -0700
Subject: empty: handle buffers.

* lib.c (empty): Handle BUF in switch.
---
 lib.c | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'lib.c')

diff --git a/lib.c b/lib.c
index 9cc20045..13a41947 100644
--- a/lib.c
+++ b/lib.c
@@ -10000,6 +10000,8 @@ val empty(val seq)
     return eq(length_vec(seq), zero);
   case RNG:
     return eql(from(seq), to(seq));
+  case BUF:
+    return eq(length_buf(seq), zero);
   case COBJ:
     if (seq->co.cls == hash_s)
       return eq(hash_count(seq), zero);
-- 
cgit v1.2.3