diff options
author | Greg J. Badros <gjb@cs.washington.edu> | 2000-03-02 23:14:28 +0000 |
---|---|---|
committer | Greg J. Badros <gjb@cs.washington.edu> | 2000-03-02 23:14:28 +0000 |
commit | 8507b88c001234be3013765d9f64c822fb62304c (patch) | |
tree | 276e955cbaaae46b90ca32c5153c3785891b340a /libguile | |
parent | 26a760c65e7eff4e8927b6d69190c7ba13ae7c8c (diff) | |
download | guile-8507b88c001234be3013765d9f64c822fb62304c.tar.gz |
* list.c: Added hand-written docs for `del{q,v,ete}1!'.
Diffstat (limited to 'libguile')
-rw-r--r-- | libguile/list.c | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/libguile/list.c b/libguile/list.c index eabd18cfc..fde37996d 100644 --- a/libguile/list.c +++ b/libguile/list.c @@ -699,7 +699,8 @@ SCM_DEFINE (scm_delete, "delete", 2, 0, 0, SCM_DEFINE (scm_delq1_x, "delq1!", 2, 0, 0, (SCM item, SCM lst), - "") + "Like `delq!', but only deletes the first occurrence of ITEM from LST.\n" + "Tests for equality using `eq?'. See also `delv1!' and `delete1!'.") #define FUNC_NAME s_scm_delq1_x { SCM walk; @@ -724,8 +725,9 @@ SCM_DEFINE (scm_delq1_x, "delq1!", 2, 0, 0, SCM_DEFINE (scm_delv1_x, "delv1!", 2, 0, 0, - (SCM item, SCM lst), - "") + (SCM item, SCM lst), + "Like `delv!', but only deletes the first occurrence of ITEM from LST.\n" + "Tests for equality using `eqv?'. See also `delq1!' and `delete1!'.") #define FUNC_NAME s_scm_delv1_x { SCM walk; @@ -750,8 +752,9 @@ SCM_DEFINE (scm_delv1_x, "delv1!", 2, 0, 0, SCM_DEFINE (scm_delete1_x, "delete1!", 2, 0, 0, - (SCM item, SCM lst), - "") + (SCM item, SCM lst), + "Like `delete!', but only deletes the first occurrence of ITEM from LST.\n" + "Tests for equality using `equal?'. See also `delq1!' and `delv1!'.") #define FUNC_NAME s_scm_delete1_x { SCM walk; |