mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +02:00
Code Activity

(scm_valid_object_procedure_p): New.

Browse source 
(scm_set_object_procedure_x): Use it to check argument.  Fix
docstring.
This commit is contained in:
Marius Vollmer 2001-05-05 19:05:47 +00:00
parent 67dc6a4ea2
commit cec0d28c56
2 changed files with 30 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/objects.h
View file

@ -230,7 +230,8 @@ extern SCM scm_apply_generic (SCM gf, SCM args);
extern SCM scm_call_generic_3 (SCM gf, SCM a1, SCM a2, SCM a3);
extern SCM scm_entity_p (SCM obj);
extern SCM scm_operator_p (SCM obj);
extern SCM scm_set_object_procedure_x (SCM obj, SCM procs);
extern SCM scm_valid_object_procedure_p (SCM proc);
extern SCM scm_set_object_procedure_x (SCM obj, SCM proc);
#ifdef GUILE_DEBUG
extern SCM scm_object_procedure (SCM obj);
#endif