diff options
| -rw-r--r-- | libguile/ChangeLog | 43 | ||||
| -rw-r--r-- | libguile/eval.c | 4 | ||||
| -rw-r--r-- | libguile/modules.c | 10 | ||||
| -rw-r--r-- | libguile/strings.c | 1 | ||||
| -rw-r--r-- | libguile/strop.c | 2 |
5 files changed, 54 insertions, 6 deletions
diff --git a/libguile/ChangeLog b/libguile/ChangeLog index 9ff0f4afd..1ff3b9e9d 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,3 +1,46 @@ +2000-09-03 Neil Jerram <neil@ossau.uklinux.net> + + * vectors.c (scm_vector): Docstring: add @deffnx line for + list->vector. + + * unif.c (scm_uniform_vector_ref): Docstring: add @deffnx line for + array-ref. + (scm_array_set_x): Docstring: add @deffnx line for + uniform-array-set!. + + * symbols.c (scm_symbol_to_string): Docstring: complete an + incomplete Texinfo reference to a node in r4rs.texi. + (scm_symbol_to_string): Escape double quotes correctly within + docstring. + + * struct.c (scm_make_struct, scm_make_vtable_vtable): Docstring + fixes: `@dots' changed to `@dots{}'. + + * strop.c (scm_substring_move_x): Docstring: add @deffnx lines for + substring-move-left! and substring-move-right!. + + * strings.c (scm_string): Docstring: add @deffnx line for + list->string. + + * stime.c (scm_strptime): Fix spelling mistake in docstring. + (scm_current_time): Docstring fix: insert missing newline. + + * socket.c (scm_recvfrom): Docstring format fix: missing newline + inserted. + + * ramap.c (scm_array_copy_x): Docstring: add @deffnx line for + array-copy-in-order!. + (scm_array_map_x): Docstring: add @deffnx line for + array-map-in-order!. + + * posix.c (scm_mknod): Docstring format fix: missing newlines + inserted. + + * modules.c (scm_interaction_environment): Docstring fix: add + newlines. + + * eval.c (scm_cons_source): Added newly written docstring. + 2000-09-03 Michael Livshin <mlivshin@bigfoot.com> the following changes let Guile get rid of the `allocated' cell diff --git a/libguile/eval.c b/libguile/eval.c index 74574fd55..41c10c3e7 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -3802,7 +3802,9 @@ SCM_DEFINE (scm_promise_p, "promise?", 1, 0, 0, SCM_DEFINE (scm_cons_source, "cons-source", 3, 0, 0, (SCM xorig, SCM x, SCM y), - "") + "Create and return a new pair whose car and cdr are @var{x} and @var{y}.\n" + "Any source properties associated with @var{xorig} are also associated\n" + "with the new pair.") #define FUNC_NAME s_scm_cons_source { SCM p, z; diff --git a/libguile/modules.c b/libguile/modules.c index a59aec6a9..ae062ab74 100644 --- a/libguile/modules.c +++ b/libguile/modules.c @@ -94,11 +94,11 @@ scm_select_module (SCM module) SCM_DEFINE (scm_interaction_environment, "interaction-environment", 0, 0, 0, (), - "This procedure returns a specifier for the environment that" - "contains implementation-defined bindings, typically a superset of" - "those listed in the report. The intent is that this procedure" - "will return the environment in which the implementation would" - "evaluate expressions dynamically typed by the user.") + "This procedure returns a specifier for the environment that contains\n" + "implementation-defined bindings, typically a superset of those listed in\n" + "the report. The intent is that this procedure will return the\n" + "environment in which the implementation would evaluate expressions\n" + "dynamically typed by the user.") #define FUNC_NAME s_scm_interaction_environment { return scm_selected_module (); diff --git a/libguile/strings.c b/libguile/strings.c index c4a5c3a22..1c4df1da1 100644 --- a/libguile/strings.c +++ b/libguile/strings.c @@ -95,6 +95,7 @@ SCM_REGISTER_PROC (s_scm_list_to_string, "list->string", 1, 0, 0, scm_string); SCM_DEFINE (scm_string, "string", 0, 0, 1, (SCM chrs), + "@deffnx primitive list->string chrs\n" "Returns a newly allocated string composed of the arguments, CHRS.") #define FUNC_NAME s_scm_string { diff --git a/libguile/strop.c b/libguile/strop.c index abb6ae25b..b777c8a7d 100644 --- a/libguile/strop.c +++ b/libguile/strop.c @@ -227,6 +227,8 @@ y SCM_DEFINE (scm_substring_move_x, "substring-move!", 5, 0, 0, (SCM str1, SCM start1, SCM end1, SCM str2, SCM start2), + "@deffnx primitive substring-move-left! str1 start1 end1 str2 start2\n" + "@deffnx primitive substring-move-right! str1 start1 end1 str2 start2\n" "Copy the substring of @var{str1} bounded by @var{start1} and @var{end1}\n" "into @var{str2} beginning at position @var{end2}.\n" "@code{substring-move-right!} begins copying from the rightmost character\n" |