Cjrize EStrcat

1 files changed, 15 insertions, 0 deletions

diff --git a/src/c/lacweb.c b/src/c/lacweb.c
index c744271c..7ee6daef 100644
--- a/src/c/lacweb.c
+++ b/src/c/lacweb.c
@@ -505,3 +505,18 @@ void lw_Basis_htmlifyString_w(lw_context ctx, lw_Basis_string s) {
     }
   }
 }
+
+lw_Basis_string lw_Basis_strcat(lw_context ctx, lw_Basis_string s1, lw_Basis_string s2) {
+  int len = strlen(s1) + strlen(s2) + 1;
+  char *s;
+
+  lw_check(ctx, len);
+
+  s = ctx->heap_front;
+
+  strcpy(s, s1);
+  strcat(s, s2);
+  ctx->heap_front += len;
+
+  return s;
+}