mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-06 23:50:18 +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

13
libguile/ChangeLog
View file

@ -1,3 +1,16 @@
2000-09-29 Neil Jerram <neil@ossau.uklinux.net>
* net_db.c (scm_inet_ntoa): Docstring fix: missing newline
inserted.
* hashtab.c (scm_hashx_create_handle_x, scm_hashx_ref): Insert
spaces between C parameters so that the snarfer doesn't coalesce
them all into a single very long-named parameter.
2000-09-27 Neil Jerram <neil@ossau.uklinux.net>
* list.c (scm_append): Use @example texinfo markup in docstring.
2000-09-26 Dirk Herrmann <D.Herrmann@tu-bs.de>
* strings.c (scm_string, scm_make_string, scm_string_set_x,

13
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"
"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"
"\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"
"argument is not a proper list.\n\n"
"@example\n"
" (append '(a b) '(c . d)) => (a b c . d)\n"
" (append '() 'a) => a\n")
" (append '() 'a) => a\n"
"@end example")
#define FUNC_NAME s_scm_append
{
SCM_VALIDATE_REST_ARGUMENT (args);

2
libguile/net_db.c
View file

@ -108,7 +108,7 @@ SCM_DEFINE (scm_inet_ntoa, "inet-ntoa", 1, 0, 0,
"Converts an integer Internet host address into a string with the\n"
"traditional dotted decimal representation.\n\n"
"@smalllisp\n"
"(inet-ntoa 2130706433) @result{} \"127.0.0.1\""
"(inet-ntoa 2130706433) @result{} \"127.0.0.1\"\n"
"@end smalllisp")
#define FUNC_NAME s_scm_inet_ntoa
{