diff options
Diffstat (limited to 'libguile/objects.c')
-rw-r--r-- | libguile/objects.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/libguile/objects.c b/libguile/objects.c index 17c852f2c..483ef2b83 100644 --- a/libguile/objects.c +++ b/libguile/objects.c @@ -392,7 +392,7 @@ SCM_DEFINE (scm_set_object_procedure_x, "set-object-procedure!", 2, 0, 0, obj, SCM_ARG1, FUNC_NAME); - SCM_VALIDATE_PROC(2,proc); + SCM_VALIDATE_PROC (2,proc); if (SCM_I_ENTITYP (obj)) SCM_ENTITY_PROCEDURE (obj) = proc; else @@ -443,8 +443,8 @@ SCM_DEFINE (scm_make_class_object, "make-class-object", 2, 0, 0, #define FUNC_NAME s_scm_make_class_object { unsigned long flags = 0; - SCM_VALIDATE_STRUCT(1,metaclass); - SCM_VALIDATE_STRING(2,layout); + SCM_VALIDATE_STRUCT (1,metaclass); + SCM_VALIDATE_STRING (2,layout); if (metaclass == scm_metaclass_operator) flags = SCM_CLASSF_OPERATOR; return scm_i_make_class_object (metaclass, layout, flags); @@ -457,8 +457,8 @@ SCM_DEFINE (scm_make_subclass_object, "make-subclass-object", 2, 0, 0, #define FUNC_NAME s_scm_make_subclass_object { SCM pl; - SCM_VALIDATE_STRUCT(1,class); - SCM_VALIDATE_STRING(2,layout); + SCM_VALIDATE_STRUCT (1,class); + SCM_VALIDATE_STRING (2,layout); pl = SCM_STRUCT_DATA (class)[scm_vtable_index_layout]; /* Convert symbol->string */ pl = scm_makfromstr (SCM_CHARS (pl), (scm_sizet) SCM_LENGTH (pl), 0); |