mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 14:21:10 +02:00
Code Activity

(scm_gensym): Use " g" as default prefix, not "g".

Browse source 
This might help to make unintented clashes less likely.
(scm_string_to_symbol): Protect the string until the symbols is
created.
This commit is contained in:
Marius Vollmer 2002-01-31 19:59:26 +00:00
parent 1fa86ca526
commit 68dc153d7f
1 changed files with 9 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

15
libguile/symbols.c
View file

@ -139,7 +139,6 @@ scm_mem2symbol (const char *name, size_t len)
}
}
SCM
scm_str2symbol (const char *str)
{
@ -216,9 +215,12 @@ SCM_DEFINE (scm_string_to_symbol, "string->symbol", 1, 0, 0,
"@end lisp")
#define FUNC_NAME s_scm_string_to_symbol
{
SCM sym;
SCM_VALIDATE_STRING (1, string);
return scm_mem2symbol (SCM_STRING_CHARS (string),
SCM_STRING_LENGTH (string));
sym = scm_mem2symbol (SCM_STRING_CHARS (string),
SCM_STRING_LENGTH (string));
scm_remember_upto_here_1 (string);
return sym;
}
#undef FUNC_NAME
@ -230,7 +232,7 @@ SCM_DEFINE (scm_gensym, "gensym", 0, 1, 0,
(SCM prefix),
"Create a new symbol with a name constructed from a prefix and\n"
"a counter value. The string @var{prefix} can be specified as\n"
"an optional argument. Default prefix is @code{g}. The counter\n"
"an optional argument. Default prefix is @code{ g}. The counter\n"
"is increased by 1 at each call. There is no provision for\n"
"resetting the counter.")
#define FUNC_NAME s_scm_gensym
@ -240,8 +242,9 @@ SCM_DEFINE (scm_gensym, "gensym", 0, 1, 0,
size_t len;
if (SCM_UNBNDP (prefix))
{
name[0] = 'g';
len = 1;
name[0] = ' ';
name[1] = 'g';
len = 2;
}
else
{