From 72b811ad05f174d7e72403a88f82eb586058f99b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Marc=20Nieper-Wi=C3=9Fkirchen?= Date: Mon, 3 Feb 2025 08:59:59 +0100 Subject: [PATCH] Remove obsolete `real_symname` --- c/intern.c | 17 ++++------------- 1 file changed, 4 insertions(+), 13 deletions(-) diff --git a/c/intern.c b/c/intern.c index 9a1b88cb3..2030f3cd5 100644 --- a/c/intern.c +++ b/c/intern.c @@ -151,15 +151,6 @@ ptr S_mkstring(const string_char *s, iptr n) { return mkstring(s, n); } -static ptr real_symname(ptr sym) { - ptr name = SYMNAME(sym); - if (!GENSYMP(sym)) - return name; - if (Scdr(name) != Strue) - return Sfalse; - return Scar(name); -} - /* handles single-byte characters, implicit length */ ptr S_intern(const unsigned char *s) { iptr n = strlen((const char *)s); @@ -173,8 +164,8 @@ ptr S_intern(const unsigned char *s) { b = S_G.oblist[idx]; while (b != NULL) { sym = b->sym; - ptr str = real_symname(sym); - if (str != Sfalse) { + if (!GENSYMP(sym)) { + ptr str = SYMNAME(sym); if (Sstring_length(str) == n) { iptr i; for (i = 0; ; i += 1) { @@ -212,8 +203,8 @@ ptr S_intern_sc(const string_char *name, iptr n, ptr name_str) { b = S_G.oblist[idx]; while (b != NULL) { sym = b->sym; - ptr str = real_symname(sym); - if (str != Sfalse) { + if (!GENSYMP(sym)) { + ptr str = SYMNAME(sym); if (Sstring_length(str) == n) { iptr i; for (i = 0; ; i += 1) {