From 8a53620f4598e5656363e237a4e2ba8390611041 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 8 Jul 2021 19:06:29 -0700
Subject: type: MAXTYPE doesn't account for DARG.

* lib.h (enum type): Change MAX_TYPE to correctly alias the
last type DARG, rather than the second-to-last TNOD type.

* lib.c (seq_kind_tab): Include an entry for DARG, mapping to
SEQ_NOTSEQ.
---
 lib.c | 1 +
 lib.h | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib.c b/lib.c
index dff01c5a..588e5dac 100644
--- a/lib.c
+++ b/lib.c
@@ -158,6 +158,7 @@ const seq_kind_t seq_kind_tab[MAXTYPE+1] = {
   SEQ_NOTSEQ,   /* RNG */
   SEQ_VECLIKE,  /* BUF */
   SEQ_NOTSEQ,   /* TNOD */
+  SEQ_NOTSEQ,   /* DARG */
 };
 
 val identity(val obj)
diff --git a/lib.h b/lib.h
index 41181f6c..6a6c0841 100644
--- a/lib.h
+++ b/lib.h
@@ -67,7 +67,7 @@ typedef double_uintptr_t dbl_ucnum;
 typedef enum type {
   NIL = TAG_PTR, NUM = TAG_NUM, CHR = TAG_CHR, LIT = TAG_LIT, CONS,
   STR, SYM, PKG, FUN, VEC, LCONS, LSTR, COBJ, CPTR, ENV,
-  BGNUM, FLNUM, RNG, BUF, TNOD, DARG, MAXTYPE = TNOD
+  BGNUM, FLNUM, RNG, BUF, TNOD, DARG, MAXTYPE = DARG
   /* If extending, check TYPE_SHIFT and all ocurrences of MAX_TYPE */
 } type_t;
 
-- 
cgit v1.2.3