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

(scm_gensym): Use " g" as default prefix, not "g". This might help to

Browse source 
make unintented clashes less likely.
This commit is contained in:
Marius Vollmer 2002-01-31 18:09:00 +00:00
parent 7ca39de11e
commit b982b7af06
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/symbols.c
View file

@ -230,7 +230,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 +240,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
{ {