/[guile]/guile/guile-core/libguile/symbols.c
ViewVC logotype

Diff of /guile/guile-core/libguile/symbols.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.92.2.1 by ttn, Mon Jul 9 07:31:05 2001 UTC revision 1.92.2.2 by mvo, Thu Jan 31 18:09:00 2002 UTC
# Line 230  SCM_DEFINE (scm_gensym, "gensym", 0, 1, Line 230  SCM_DEFINE (scm_gensym, "gensym", 0, 1,
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
# Line 240  SCM_DEFINE (scm_gensym, "gensym", 0, 1, Line 240  SCM_DEFINE (scm_gensym, "gensym", 0, 1,
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      {      {

Legend:
Removed from v.1.92.2.1  
changed lines
  Added in v.1.92.2.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26