diff options
Diffstat (limited to 'libguile/objects.c')
-rw-r--r-- | libguile/objects.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/libguile/objects.c b/libguile/objects.c index 358b3a3e6..17c852f2c 100644 --- a/libguile/objects.c +++ b/libguile/objects.c @@ -359,7 +359,7 @@ scm_call_generic_3 (SCM gf, SCM a1, SCM a2, SCM a3) return scm_apply_generic (gf, SCM_LIST3 (a1, a2, a3)); } -GUILE_PROC (scm_entity_p, "entity?", 1, 0, 0, +SCM_DEFINE (scm_entity_p, "entity?", 1, 0, 0, (SCM obj), "") #define FUNC_NAME s_scm_entity_p @@ -368,7 +368,7 @@ GUILE_PROC (scm_entity_p, "entity?", 1, 0, 0, } #undef FUNC_NAME -GUILE_PROC (scm_operator_p, "operator?", 1, 0, 0, +SCM_DEFINE (scm_operator_p, "operator?", 1, 0, 0, (SCM obj), "") #define FUNC_NAME s_scm_operator_p @@ -379,7 +379,7 @@ GUILE_PROC (scm_operator_p, "operator?", 1, 0, 0, } #undef FUNC_NAME -GUILE_PROC (scm_set_object_procedure_x, "set-object-procedure!", 2, 0, 0, +SCM_DEFINE (scm_set_object_procedure_x, "set-object-procedure!", 2, 0, 0, (SCM obj, SCM proc), "") #define FUNC_NAME s_scm_set_object_procedure_x @@ -402,7 +402,7 @@ GUILE_PROC (scm_set_object_procedure_x, "set-object-procedure!", 2, 0, 0, #undef FUNC_NAME #ifdef GUILE_DEBUG -GUILE_PROC (scm_object_procedure, "object-procedure", 1, 0, 0, +SCM_DEFINE (scm_object_procedure, "object-procedure", 1, 0, 0, (SCM obj), "") #define FUNC_NAME s_scm_object_procedure @@ -437,7 +437,7 @@ scm_i_make_class_object (SCM meta, return c; } -GUILE_PROC (scm_make_class_object, "make-class-object", 2, 0, 0, +SCM_DEFINE (scm_make_class_object, "make-class-object", 2, 0, 0, (SCM metaclass, SCM layout), "") #define FUNC_NAME s_scm_make_class_object @@ -451,7 +451,7 @@ GUILE_PROC (scm_make_class_object, "make-class-object", 2, 0, 0, } #undef FUNC_NAME -GUILE_PROC (scm_make_subclass_object, "make-subclass-object", 2, 0, 0, +SCM_DEFINE (scm_make_subclass_object, "make-subclass-object", 2, 0, 0, (SCM class, SCM layout), "") #define FUNC_NAME s_scm_make_subclass_object |