mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 08:40:19 +02:00
Code Activity

* Removed SCM_SYMBOL_UCHARS.

Browse source
This commit is contained in:
Dirk Herrmann 2000-11-28 16:37:40 +00:00
parent 4e15fee80f
commit e51fe79c72
5 changed files with 28 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/symbols.c
View file

@ -262,13 +262,13 @@ scm_intern_obarray_soft (const char *name,scm_sizet len,SCM obarray,unsigned int
scm_sizet i;
SCM a = SCM_CAR (lsym);
SCM z = SCM_CAR (a);
unsigned char *tmp = SCM_SYMBOL_UCHARS (z);
char *tmp = SCM_SYMBOL_CHARS (z);
if (SCM_SYMBOL_HASH (z) != raw_hash)
goto trynext;
if (SCM_SYMBOL_LENGTH (z) != len)
goto trynext;
for (i = len; i--;)
if (((unsigned char *) name)[i] != tmp[i])
if (name[i] != tmp[i])
goto trynext;
{
SCM_REALLOW_INTS;