diff options
author | Marius Vollmer <mvo@zagadka.de> | 2001-05-05 19:05:47 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2001-05-05 19:05:47 +0000 |
commit | cec0d28c565f2a311e89d1657087a84b9f8d80da (patch) | |
tree | f64ea614e2d24feea0303c0bf4f61352d5d10df4 /libguile/objects.h | |
parent | 67dc6a4ea26ddd00c41ec3a095843249ea9fa6c9 (diff) | |
download | guile-cec0d28c565f2a311e89d1657087a84b9f8d80da.tar.gz |
(scm_valid_object_procedure_p): New.
(scm_set_object_procedure_x): Use it to check argument. Fix
docstring.
Diffstat (limited to 'libguile/objects.h')
-rw-r--r-- | libguile/objects.h | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/objects.h b/libguile/objects.h index 110158a8e..20e3fb3ea 100644 --- a/libguile/objects.h +++ b/libguile/objects.h @@ -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 |