summaryrefslogtreecommitdiff
path: root/libguile/objects.c
diff options
context:
space:
mode:
authorGreg J. Badros <gjb@cs.washington.edu>2000-01-05 19:05:23 +0000
committerGreg J. Badros <gjb@cs.washington.edu>2000-01-05 19:05:23 +0000
commita1ec69163dd2e55e5d2b03a164513aa4a0d5943c (patch)
tree99489194c03fa41397c77e84b3f8660ffef1ed30 /libguile/objects.c
parentfb764465068f84e3ab047c45792ffc3026e5505a (diff)
downloadguile-a1ec69163dd2e55e5d2b03a164513aa4a0d5943c.tar.gz
*.[ch]: Replace GUILE_PROC w/ SCM_DEFINE.
Diffstat (limited to 'libguile/objects.c')
-rw-r--r--libguile/objects.c12
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