mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* hooks.c (scm_make_hook, scm_make_hook_with_name),

Browse source 
(scm_hook_p, scm_hook_empty_p, scm_run_hook): Docstring
	improvements.
This commit is contained in:
Martin Grabmüller 2001-04-09 16:07:15 +00:00
parent a8944ae1c7
commit 4d66be5456
2 changed files with 15 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/ChangeLog
View file

@ -1,3 +1,9 @@
2001-04-06 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
* hooks.c (scm_make_hook, scm_make_hook_with_name),
(scm_hook_p, scm_hook_empty_p, scm_run_hook): Docstring
improvements.
2001-04-03 Martin Grabmueller <mgrabmue@cs.tu-berlin.de> 2001-04-03 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
The following changes make the documentation more consistent. The following changes make the documentation more consistent.

14
libguile/hooks.c
View file

@ -213,7 +213,8 @@ scm_create_hook (const char* name, int n_args)
SCM_DEFINE (scm_make_hook_with_name, "make-hook-with-name", 1, 1, 0, SCM_DEFINE (scm_make_hook_with_name, "make-hook-with-name", 1, 1, 0,
(SCM name, SCM n_args), (SCM name, SCM n_args),
"Create a named hook with the name @var{name} for storing\n" "Create a named hook with the name @var{name} for storing\n"
"procedures of arity @var{n_args}.") "procedures of arity @var{n_args}. @var{n_args} defaults to\n"
"zero.")
#define FUNC_NAME s_scm_make_hook_with_name #define FUNC_NAME s_scm_make_hook_with_name
{ {
SCM hook = make_hook (n_args, FUNC_NAME); SCM hook = make_hook (n_args, FUNC_NAME);
@ -227,7 +228,8 @@ SCM_DEFINE (scm_make_hook_with_name, "make-hook-with-name", 1, 1, 0,
SCM_DEFINE (scm_make_hook, "make-hook", 0, 1, 0, SCM_DEFINE (scm_make_hook, "make-hook", 0, 1, 0,
(SCM n_args), (SCM n_args),
"Create a hook for storing procedure of arity @var{n_args}.") "Create a hook for storing procedure of arity\n"
"@var{n_args}. @var{n_args} defaults to zero.")
#define FUNC_NAME s_scm_make_hook #define FUNC_NAME s_scm_make_hook
{ {
return make_hook (n_args, FUNC_NAME); return make_hook (n_args, FUNC_NAME);
@ -237,7 +239,7 @@ SCM_DEFINE (scm_make_hook, "make-hook", 0, 1, 0,
SCM_DEFINE (scm_hook_p, "hook?", 1, 0, 0, SCM_DEFINE (scm_hook_p, "hook?", 1, 0, 0,
(SCM x), (SCM x),
"Return @code{#t} if @var{x} is a hook.") "Return @code{#t} if @var{x} is a hook, @code{#f} otherwise.")
#define FUNC_NAME s_scm_hook_p #define FUNC_NAME s_scm_hook_p
{ {
return SCM_BOOL (SCM_HOOKP (x)); return SCM_BOOL (SCM_HOOKP (x));
@ -247,7 +249,8 @@ SCM_DEFINE (scm_hook_p, "hook?", 1, 0, 0,
SCM_DEFINE (scm_hook_empty_p, "hook-empty?", 1, 0, 0, SCM_DEFINE (scm_hook_empty_p, "hook-empty?", 1, 0, 0,
(SCM hook), (SCM hook),
"Return @code{#t} if @var{hook} is an empty hook.") "Return @code{#t} if @var{hook} is an empty hook, @code{#f}\n"
"otherwise.")
#define FUNC_NAME s_scm_hook_empty_p #define FUNC_NAME s_scm_hook_empty_p
{ {
SCM_VALIDATE_HOOK (1, hook); SCM_VALIDATE_HOOK (1, hook);
@ -312,7 +315,8 @@ SCM_DEFINE (scm_reset_hook_x, "reset-hook!", 1, 0, 0,
SCM_DEFINE (scm_run_hook, "run-hook", 1, 0, 1, SCM_DEFINE (scm_run_hook, "run-hook", 1, 0, 1,
(SCM hook, SCM args), (SCM hook, SCM args),
"Apply all procedures from the hook @var{hook} to the arguments\n" "Apply all procedures from the hook @var{hook} to the arguments\n"
"@var{args}.") "@var{args}. The order of the procedure application is first to\n"
"last.")
#define FUNC_NAME s_scm_run_hook #define FUNC_NAME s_scm_run_hook
{ {
SCM_VALIDATE_HOOK (1,hook); SCM_VALIDATE_HOOK (1,hook);