diff options
author | Greg J. Badros <gjb@cs.washington.edu> | 2000-03-02 20:54:43 +0000 |
---|---|---|
committer | Greg J. Badros <gjb@cs.washington.edu> | 2000-03-02 20:54:43 +0000 |
commit | 7866a09b5b355ea277d2dd780b24e98f647329d4 (patch) | |
tree | 475d3833314d66222ba9773505eec1f0af7d3b01 /libguile/list.c | |
parent | e510ed373f315ca26f17be1ebe963c5c226a158e (diff) | |
download | guile-7866a09b5b355ea277d2dd780b24e98f647329d4.tar.gz |
* list.c: Moved append docs to append! Thanks Dirk Hermann. Also,
added append docs from R4RS.
* strings.c: Docstring typo fix, + eliminate unneeded IMP tests.
Thanks Dirk Hermann!
* chars.h: Provide SCM_CHARP, SCM_CHAR, SCM_MAKE_CHAR and
deprecate SCM_ICHRP, SCM_ICHR, SCM_MAKICHR. Thanks Dirk Hermann!
* *.h, *.c: Use SCM_CHARP, SCM_CHAR, SCM_MAKE_CHAR throughout.
Drop use of SCM_P for function prototypes... assume an ANSI C
compiler. Thanks Dirk Hermann!
Diffstat (limited to 'libguile/list.c')
-rw-r--r-- | libguile/list.c | 23 |
1 files changed, 18 insertions, 5 deletions
diff --git a/libguile/list.c b/libguile/list.c index 16c52c71f..eabd18cfc 100644 --- a/libguile/list.c +++ b/libguile/list.c @@ -180,10 +180,20 @@ SCM_DEFINE (scm_length, "length", 1, 0, 0, SCM_DEFINE (scm_append, "append", 0, 0, 1, (SCM args), - "A destructive version of @code{append} (@pxref{Pairs and Lists,,,r4rs,\n" - "The Revised^4 Report on Scheme}). The cdr field of each list's final\n" - "pair is changed to point to the head of the next list, so no consing is\n" - "performed. Return a pointer to the mutated list.") + "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") #define FUNC_NAME s_scm_append { SCM res = SCM_EOL; @@ -214,7 +224,10 @@ SCM_DEFINE (scm_append, "append", 0, 0, 1, SCM_DEFINE (scm_append_x, "append!", 0, 0, 1, (SCM args), - "") + "A destructive version of @code{append} (@pxref{Pairs and Lists,,,r4rs,\n" + "The Revised^4 Report on Scheme}). The cdr field of each list's final\n" + "pair is changed to point to the head of the next list, so no consing is\n" + "performed. Return a pointer to the mutated list.") #define FUNC_NAME s_scm_append_x { SCM arg; |