From 42507606a53374a330dcc4b162ef7944eb546c22 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 6 Nov 2017 17:54:00 +0000
Subject: [PATCH] Added Cyc_string_byte_length()

---
 include/cyclone/runtime.h | 1 +
 runtime.c                 | 6 ++++++
 2 files changed, 7 insertions(+)

diff --git a/include/cyclone/runtime.h b/include/cyclone/runtime.h
index 4529fa85..80ea3f87 100644
--- a/include/cyclone/runtime.h
+++ b/include/cyclone/runtime.h
@@ -194,6 +194,7 @@ int binstr2int(const char *str);
 int octstr2int(const char *str);
 object Cyc_string_append(void *data, object cont, int argc, object str1, ...);
 object Cyc_string_length(void *data, object str);
+object Cyc_string_byte_length(void *data, object str);
 object Cyc_substring(void *data, object cont, object str, object start,
                      object end);
 object Cyc_string_ref(void *data, object str, object k);
diff --git a/runtime.c b/runtime.c
index 8318ed93..e7792702 100644
--- a/runtime.c
+++ b/runtime.c
@@ -2109,6 +2109,12 @@ object Cyc_string_length(void *data, object str)
   return obj_int2obj(string_num_cp(str));
 }
 
+object Cyc_string_byte_length(void *data, object str)
+{
+  Cyc_check_str(data, str);
+  return obj_int2obj(string_len(str));
+}
+
 object Cyc_string_set(void *data, object str, object k, object chr)
 {
   char *raw;