mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +02:00
Code Activity

* Cosmetic docstring fixes.

Browse source
This commit is contained in:
Neil Jerram 2000-09-29 20:22:31 +00:00
parent bbe4e612aa
commit 6ec589e2a2
4 changed files with 30 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

27
libguile/list.c
View file

@ -192,19 +192,20 @@ SCM_DEFINE (scm_length, "length", 1, 0, 0,
SCM_DEFINE (scm_append, "append", 0, 0, 1,
(SCM args),
"Returns a list consisting of the elements of the first LIST\n"
"followed by the elements of the other LISTs.\n"
"\n"
" (append '(x) '(y)) => (x y)\n"
" (append '(a) '(b c d)) => (a b c d)\n"
" (append '(a (b)) '((c))) => (a (b) (c))\n"
"\n"
"The resulting list is always newly allocated, except that it shares\n"
"structure with the last LIST argument. The last argument may\n"
"actually be any object; an improper list results if the last\n"
"argument is not a proper list.\n"
" (append '(a b) '(c . d)) => (a b c . d)\n"
" (append '() 'a) => a\n")
"followed by the elements of the other LISTs.\n\n"
"@example\n"
" (append '(x) '(y)) => (x y)\n"
" (append '(a) '(b c d)) => (a b c d)\n"
" (append '(a (b)) '((c))) => (a (b) (c))\n"
"@end example\n\n"
"The resulting list is always newly allocated, except that it shares\n"
"structure with the last LIST argument. The last argument may\n"
"actually be any object; an improper list results if the last\n"
"argument is not a proper list.\n\n"
"@example\n"
" (append '(a b) '(c . d)) => (a b c . d)\n"
" (append '() 'a) => a\n"
"@end example")
#define FUNC_NAME s_scm_append
{
SCM_VALIDATE_REST_ARGUMENT (args);