mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-01 18:00:23 +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),
"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 +240,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
{