mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 23:00:22 +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
scm_str2symbol (const char *str) scm_str2symbol (const char *str)
{ {
@ -216,9 +215,12 @@ SCM_DEFINE (scm_string_to_symbol, "string->symbol", 1, 0, 0,
"@end lisp") "@end lisp")
#define FUNC_NAME s_scm_string_to_symbol #define FUNC_NAME s_scm_string_to_symbol
{ {
SCM sym;
SCM_VALIDATE_STRING (1, string); SCM_VALIDATE_STRING (1, string);
return scm_mem2symbol (SCM_STRING_CHARS (string), sym = scm_mem2symbol (SCM_STRING_CHARS (string),
SCM_STRING_LENGTH (string)); SCM_STRING_LENGTH (string));
scm_remember_upto_here_1 (string);
return sym;
} }
#undef FUNC_NAME #undef FUNC_NAME
@ -230,7 +232,7 @@ SCM_DEFINE (scm_gensym, "gensym", 0, 1, 0,
(SCM prefix), (SCM prefix),
"Create a new symbol with a name constructed from a prefix and\n" "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" "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" "is increased by 1 at each call. There is no provision for\n"
"resetting the counter.") "resetting the counter.")
#define FUNC_NAME s_scm_gensym #define FUNC_NAME s_scm_gensym
@ -240,8 +242,9 @@ SCM_DEFINE (scm_gensym, "gensym", 0, 1, 0,
size_t len; size_t len;
if (SCM_UNBNDP (prefix)) if (SCM_UNBNDP (prefix))
{ {
name[0] = 'g'; name[0] = ' ';
len = 1; name[1] = 'g';
len = 2;
} }
else else
{ {