diff --git a/include/mes/mes.h b/include/mes/mes.h index 9ef6491e..337f03aa 100644 --- a/include/mes/mes.h +++ b/include/mes/mes.h @@ -153,7 +153,6 @@ struct scm *vector_ref_ (struct scm *x, long i); struct scm *vector_set_x_ (struct scm *x, long i, struct scm *e); FUNCTION builtin_function (struct scm *builtin); char *cell_bytes (struct scm *x); -char *news_bytes (struct scm *x); int peekchar (); int readchar (); int unreadchar (); diff --git a/src/gc.c b/src/gc.c index 62643bbc..4a1df7cb 100644 --- a/src/gc.c +++ b/src/gc.c @@ -40,13 +40,6 @@ cell_bytes (struct scm *x) return p + (2 * sizeof (long)); } -char * -news_bytes (struct scm *x) -{ - char *p = cast_voidp_to_charp (x); - return p + (2 * sizeof (long)); -} - #define U10 10U // CONSTANT U10 10 #define U100 100U @@ -504,7 +497,7 @@ gc_copy (struct scm *old) /*:((internal)) */ else if (new->type == TBYTES) { char const *src = cell_bytes (old); - char *dest = news_bytes (new); + char *dest = cell_bytes (new); size_t length = new->length; memcpy (dest, src, length); g_free = g_free + ((bytes_cells (length) - 1) * M2_CELL_SIZE);