mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-03 21:30:29 +02:00
Code Activity

(scm_slot_exists_p): Rename from scm_slots_exists_p.

Browse source 
(s_scm_slot_exists_p): Rename from s_scm_slots_exists_p.
This commit is contained in:
Thien-Thi Nguyen 2002-04-22 17:46:06 +00:00
parent 1841c44acc
commit 6d77c894fe
1 changed files with 72 additions and 72 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/goops.c
View file

@ -1273,10 +1273,10 @@ SCM_DEFINE (scm_slot_bound_p, "slot-bound?", 2, 0, 0,
} }
#undef FUNC_NAME #undef FUNC_NAME
SCM_DEFINE (scm_slots_exists_p, "slot-exists?", 2, 0, 0, SCM_DEFINE (scm_slot_exists_p, "slot-exists?", 2, 0, 0,
(SCM obj, SCM slot_name), (SCM obj, SCM slot_name),
"Return @code{#t} if @var{obj} has a slot named @var{slot_name}.") "Return @code{#t} if @var{obj} has a slot named @var{slot_name}.")
#define FUNC_NAME s_scm_slots_exists_p #define FUNC_NAME s_scm_slot_exists_p
{ {
SCM class; SCM class;