Better error message of uvector reader

Fix #1095
shirok · Jan 1, 2025 · 4d78e44 · 4d78e44
1 parent 1460767
commit 4d78e44
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/vector.c b/src/vector.c
@@ -372,6 +372,10 @@ ScmObj Scm_ListToUVector(ScmClass *klass, ScmObj list, int clamp)
                                                  NULL);
     ScmObj cp = list;
     for (ScmSize i=0; i<length; i++, cp = SCM_CDR(cp)) {
+        if (!SCM_NUMBERP(SCM_CAR(cp))) {
+            Scm_Error("Bad type of element; number expected, but got: %S",
+                      SCM_CAR(cp));
+        }
         switch (type) {
         case SCM_UVECTOR_S8:
             SCM_S8VECTOR_ELEMENTS(v)[i] =