230 |
(SCM prefix), |
(SCM prefix), |
231 |
"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" |
232 |
"a counter value. The string @var{prefix} can be specified as\n" |
"a counter value. The string @var{prefix} can be specified as\n" |
233 |
"an optional argument. Default prefix is @code{g}. The counter\n" |
"an optional argument. Default prefix is @code{ g}. The counter\n" |
234 |
"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" |
235 |
"resetting the counter.") |
"resetting the counter.") |
236 |
#define FUNC_NAME s_scm_gensym |
#define FUNC_NAME s_scm_gensym |
240 |
size_t len; |
size_t len; |
241 |
if (SCM_UNBNDP (prefix)) |
if (SCM_UNBNDP (prefix)) |
242 |
{ |
{ |
243 |
name[0] = 'g'; |
name[0] = ' '; |
244 |
len = 1; |
name[1] = 'g'; |
245 |
|
len = 2; |
246 |
} |
} |
247 |
else |
else |
248 |
{ |
{ |