diff options
author | Neil Jerram <neil@ossau.uklinux.net> | 2000-09-29 20:22:31 +0000 |
---|---|---|
committer | Neil Jerram <neil@ossau.uklinux.net> | 2000-09-29 20:22:31 +0000 |
commit | 6ec589e2a2eef05feee900c25ed4c11bcd74594d (patch) | |
tree | 3c69341c76e39e193661f1d894a30f53d5b294a3 /libguile/list.c | |
parent | bbe4e612aafeba3c30d58c1c8db07826a14c4312 (diff) | |
download | guile-6ec589e2a2eef05feee900c25ed4c11bcd74594d.tar.gz |
* Cosmetic docstring fixes.
Diffstat (limited to 'libguile/list.c')
-rw-r--r-- | libguile/list.c | 27 |
1 files changed, 14 insertions, 13 deletions
diff --git a/libguile/list.c b/libguile/list.c index d141dd2b1..933b04adb 100644 --- a/libguile/list.c +++ b/libguile/list.c @@ -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); |