From ae42688c46f8f024153934c5e8935029fc7f7d4e Mon Sep 17 00:00:00 2001 From: Neil Jerram Date: Sat, 2 Sep 2000 23:16:00 +0000 Subject: [PATCH] * Docstring updates for scm_symbol_to_string. --- libguile/symbols.c | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/libguile/symbols.c b/libguile/symbols.c index 49e63aadc..919f806db 100644 --- a/libguile/symbols.c +++ b/libguile/symbols.c @@ -436,16 +436,16 @@ SCM_DEFINE (scm_symbol_p, "symbol?", 1, 0, 0, SCM_DEFINE (scm_symbol_to_string, "symbol->string", 1, 0, 0, (SCM s), "Returns the name of @var{symbol} as a string. If the symbol was part of\n" - "an object returned as the value of a literal expression\n" - "(section @pxref{Literal expressions}) or by a call to the @samp{read} procedure,\n" - "and its name contains alphabetic characters, then the string returned\n" - "will contain characters in the implementation's preferred standard\n" - "case---some implementations will prefer upper case, others lower case.\n" - "If the symbol was returned by @samp{string->symbol}, the case of\n" - "characters in the string returned will be the same as the case in the\n" - "string that was passed to @samp{string->symbol}. It is an error\n" - "to apply mutation procedures like @code{string-set!} to strings returned\n" - "by this procedure. (r5rs)\n\n" + "an object returned as the value of a literal expression (section\n" + "@pxref{Literal expressions,,,r4rs, The Revised^4 Report on Scheme}) or\n" + "by a call to the @samp{read} procedure, and its name contains alphabetic\n" + "characters, then the string returned will contain characters in the\n" + "implementation's preferred standard case---some implementations will\n" + "prefer upper case, others lower case. If the symbol was returned by\n" + "@samp{string->symbol}, the case of characters in the string returned\n" + "will be the same as the case in the string that was passed to\n" + "@samp{string->symbol}. It is an error to apply mutation procedures like\n" + "@code{string-set!} to strings returned by this procedure. (r5rs)\n\n" "The following examples assume that the implementation's standard case is\n" "lower case:\n\n" "@format\n" @@ -453,8 +453,8 @@ SCM_DEFINE (scm_symbol_to_string, "symbol->string", 1, 0, 0, " ==> \"flying-fish\"\n" "(symbol->string 'Martin) ==> \"martin\"\n" "(symbol->string\n" - " (string->symbol "Malvina")) \n" - " ==> \"Malvina\"\n" + " (string->symbol \"Malvina\")) \n" + " ==> \"Malvina\"\n" "}\n" "@end format") #define FUNC_NAME s_scm_symbol_to_string