From 72eff372aefb86ca8ae5ad2e95f01d4cc9e0ec78 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sat, 18 Jan 2020 10:25:33 -0800 Subject: New function: coded-length. * eval.c (eval_init): Register coded-length intrinsic. * lib.c (coded_length): New function. * lib.h (coded_length): Declared. --- lib.h | 1 + 1 file changed, 1 insertion(+) (limited to 'lib.h') diff --git a/lib.h b/lib.h index 76497d42..5be2c037 100644 --- a/lib.h +++ b/lib.h @@ -827,6 +827,7 @@ val string_extend(val str, val tail); val stringp(val str); val lazy_stringp(val str); val length_str(val str); +val coded_length(val str); const wchar_t *c_str(val str); val search_str(val haystack, val needle, val start_num, val from_end); val search_str_tree(val haystack, val tree, val start_num, val from_end); -- cgit v1.2.3