summaryrefslogtreecommitdiff
path: root/libguile/ports.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/ports.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/ports.c')
-rw-r--r--libguile/ports.c12
1 files changed, 6 insertions, 6 deletions
diff --git a/libguile/ports.c b/libguile/ports.c
index 36e301a6b..ebe771fd0 100644
--- a/libguile/ports.c
+++ b/libguile/ports.c
@@ -454,7 +454,7 @@ GUILE_PROC(scm_pt_member, "pt-member", 1, 0, 0,
#define FUNC_NAME s_scm_pt_member
{
int i;
- SCM_VALIDATE_INT_COPY (1,member,i);
+ SCM_VALIDATE_INUM_COPY (1,member,i);
if (i < 0 || i >= scm_port_table_size)
return SCM_BOOL_F;
else
@@ -501,7 +501,7 @@ The return value is unspecified.")
{
port = SCM_COERCE_OUTPORT (port);
SCM_VALIDATE_PORT(1,port);
- SCM_VALIDATE_INT(2,rcount);
+ SCM_VALIDATE_INUM(2,rcount);
SCM_REVEALED (port) = SCM_INUM (rcount);
return SCM_UNSPECIFIED;
}
@@ -1040,7 +1040,7 @@ the current position of a port can be obtained using:
object = SCM_COERCE_OUTPORT (object);
off = SCM_NUM2LONG (2,offset);
- SCM_VALIDATE_INT_COPY(3,whence,how);
+ SCM_VALIDATE_INUM_COPY(3,whence,how);
if (how != SEEK_SET && how != SEEK_CUR && how != SEEK_END)
SCM_OUT_OF_RANGE (3, whence);
if (SCM_OPPORTP (object))
@@ -1055,7 +1055,7 @@ the current position of a port can be obtained using:
}
else /* file descriptor?. */
{
- SCM_VALIDATE_INT(1,object);
+ SCM_VALIDATE_INUM(1,object);
rv = lseek (SCM_INUM (object), off, how);
if (rv == -1)
SCM_SYSERROR;
@@ -1142,7 +1142,7 @@ GUILE_PROC (scm_set_port_line_x, "set-port-line!", 2, 0, 0,
{
port = SCM_COERCE_OUTPORT (port);
SCM_VALIDATE_OPENPORT(1,port);
- SCM_VALIDATE_INT(2,line);
+ SCM_VALIDATE_INUM(2,line);
return SCM_PTAB_ENTRY (port)->line_number = SCM_INUM (line);
}
#undef FUNC_NAME
@@ -1175,7 +1175,7 @@ current input port if none is specified.")
{
port = SCM_COERCE_OUTPORT (port);
SCM_VALIDATE_OPENPORT(1,port);
- SCM_VALIDATE_INT(2,column);
+ SCM_VALIDATE_INUM(2,column);
return SCM_PTAB_ENTRY (port)->column_number = SCM_INUM (column);
}
#undef FUNC_NAME