get-csv: use unsafe version string-extend.

Another almost 16% speedup.

* lib.c (us_length_STR): New static function.
(string_extend): Use us_length_STR, since we know the
object is of type STR.
(us_string_extend_STR_CHR): New function.
(length_str): Handle STR case via use_length_STR.

* lib.h (us_string_extend_STR_CHR): Declared.

* stream.c (get_csv): Use us_string_extend_STR_CHR
instead of string_extend.

1 files changed, 1 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index af7e6f8e..a17a6d6d 100644
--- a/lib.h
+++ b/lib.h
@@ -1093,6 +1093,7 @@ val upcase_str(val str);
 val downcase_str(val str);
 val string_extend(val str, val tail, val finish);
 val string_finish(val str);
+val us_string_extend_STR_CHR(val str, val ch, val finish, val self);
 val string_set_code(val str, val code);
 val string_get_code(val str);
 val stringp(val str);