mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

(scm_gentemp, scm_gensym): Added texinfo markup.

Browse source
This commit is contained in:
Martin Grabmüller 2001-02-17 11:26:26 +00:00
parent c7eb87615a
commit 16bad70540
1 changed files with 10 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

18
libguile/symbols.c
View file

@ -774,10 +774,11 @@ static int gensym_counter;
SCM_DEFINE (scm_gensym, "gensym", 0, 1, 0, SCM_DEFINE (scm_gensym, "gensym", 0, 1, 0,
(SCM prefix), (SCM prefix),
"Create a new symbol with name constructed from a prefix and a counter value.\n" "Create a new symbol with a name constructed from a prefix and\n"
"The string PREFIX can be specified as an optional argument.\n" "a counter value. The string @var{prefix} can be specified as\n"
"Default prefix is @code{g}. The counter is increased by 1 at each call.\n" "an optional argument. Default prefix is @code{g}. The counter\n"
"There is no provision for resetting the counter.") "is increased by 1 at each call. There is no provision for\n"
"resetting the counter.")
#define FUNC_NAME s_scm_gensym #define FUNC_NAME s_scm_gensym
{ {
char buf[MAX_PREFIX_LENGTH + SCM_INTBUFLEN]; char buf[MAX_PREFIX_LENGTH + SCM_INTBUFLEN];
@ -811,10 +812,11 @@ static int gentemp_counter;
SCM_DEFINE (scm_gentemp, "gentemp", 0, 2, 0, SCM_DEFINE (scm_gentemp, "gentemp", 0, 2, 0,
(SCM prefix, SCM obarray), (SCM prefix, SCM obarray),
"Create a new symbol with a name unique in an obarray.\n" "Create a new symbol with a name unique in an obarray.\n"
"The name is constructed from an optional string PREFIX and a counter\n" "The name is constructed from an optional string @var{prefix}\n"
"value. The default prefix is @var{t}. The OBARRAY is specified as a\n" "and a counter value. The default prefix is @code{t}. The\n"
"second optional argument. Default is the system obarray where all\n" "@var{obarray} is specified as a second optional argument.\n"
"normal symbols are interned. The counter is increased by 1 at each\n" "Default is the system obarray where all normal symbols are\n"
"interned. The counter is increased by 1 at each\n"
"call. There is no provision for resetting the counter.") "call. There is no provision for resetting the counter.")
#define FUNC_NAME s_scm_gentemp #define FUNC_NAME s_scm_gentemp
{ {