summaryrefslogtreecommitdiff
path: root/libguile/struct.c
diff options
context:
space:
mode:
authorGreg J. Badros <gjb@cs.washington.edu>2000-01-05 19:00:03 +0000
committerGreg J. Badros <gjb@cs.washington.edu>2000-01-05 19:00:03 +0000
commit47c6b75ea980821737e8030190d24b9aa30e978d (patch)
tree94e1566e9a7bd7b8b4f3abfadde47faad8f45830 /libguile/struct.c
parentf5421cfc2a694b6c4eb9e035d583cc461994b4ce (diff)
downloadguile-47c6b75ea980821737e8030190d24b9aa30e978d.tar.gz
* *.[ch]: Replace SCM_VALIDATE_INT w/ SCM_VALIDATE_INUM for
better consistency with the names of other SCM_VALIDATE_ macros and better conformance to guile naming policy.
Diffstat (limited to 'libguile/struct.c')
-rw-r--r--libguile/struct.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/struct.c b/libguile/struct.c
index e0aeff348..b42ace19d 100644
--- a/libguile/struct.c
+++ b/libguile/struct.c
@@ -391,7 +391,7 @@ can not be initialized by Scheme programs.")
SCM handle;
SCM_VALIDATE_VTABLE(1,vtable);
- SCM_VALIDATE_INT(2,tail_array_size);
+ SCM_VALIDATE_INUM(2,tail_array_size);
layout = SCM_STRUCT_DATA (vtable)[scm_vtable_index_layout];
basic_size = SCM_LENGTH (layout) / 2;
@@ -497,7 +497,7 @@ provided, it will be interpreted as a print call-back function.
SCM handle;
SCM_VALIDATE_ROSTRING(1,extra_fields);
- SCM_VALIDATE_INT(2,tail_array_size);
+ SCM_VALIDATE_INUM(2,tail_array_size);
fields = scm_string_append (scm_listify (required_vtable_fields,
extra_fields,
@@ -543,7 +543,7 @@ integer value small enough to fit in one machine word.")
SCM_VALIDATE_STRUCT(1,handle);
- SCM_VALIDATE_INT(2,pos);
+ SCM_VALIDATE_INUM(2,pos);
layout = SCM_STRUCT_LAYOUT (handle);
data = SCM_STRUCT_DATA (handle);
@@ -620,7 +620,7 @@ GUILE_PROC (scm_struct_set_x, "struct-set!", 3, 0, 0,
unsigned char field_type = 0;
SCM_VALIDATE_STRUCT(1,handle);
- SCM_VALIDATE_INT(2,pos);
+ SCM_VALIDATE_INUM(2,pos);
layout = SCM_STRUCT_LAYOUT (handle);
data = SCM_STRUCT_DATA (handle);