From 61a18d8fb35ea1e59c8889119a7fd97c41c15c7d Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Tue, 7 Nov 2017 18:39:12 -0500 Subject: [PATCH] WIP --- runtime.c | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/runtime.c b/runtime.c index dbb1b448..8e6a045a 100644 --- a/runtime.c +++ b/runtime.c @@ -2189,6 +2189,12 @@ fprintf(stderr, "DEBUG %s, num_cp = %d, len = %d\n", raw, string_num_cp(str), le // - buf_len < bytes, just replace, but pad with NULL chars. // in this case need to ensure string_len is not // reduced because original value still matters for GC purposes + //else if (buf_len < bytes) { + // for (i = 0; i < buf_len; i++) { + // this_cp[i] = buf[i]; + // } + // TODO: memcpy remaining string, ensure trailing null is setup correctly, consolidate with above?? + //} else { Cyc_rt_raise2(data, "string-set! - unable to modify character", chr); }