* lib.c (chk_grow_vec): New function.

(string_extend): Use chk_grow_vec.
(vec_set_length): Avoid subtractions for comparing numbers.

* lib.h (chk_grow_vec): Declared.

* stream.c (snarf_line, string_out_put_string): Use chk_grow_vec.

1 files changed, 2 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index 9a1056d1..b59eb875 100644
--- a/lib.h
+++ b/lib.h
@@ -501,6 +501,8 @@ mem_t *chk_malloc(size_t size);
 mem_t *chk_malloc_gc_more(size_t size);
 mem_t *chk_calloc(size_t n, size_t size);
 mem_t *chk_realloc(mem_t *, size_t size);
+mem_t *chk_grow_vec(mem_t *old, size_t oldelems, size_t newelems,
+                    size_t elsize);
 wchar_t *chk_strdup(const wchar_t *str);
 val cons(val car, val cdr);
 val make_lazy_cons(val func);