diff options
author | Greg J. Badros <gjb@cs.washington.edu> | 2000-01-05 19:00:03 +0000 |
---|---|---|
committer | Greg J. Badros <gjb@cs.washington.edu> | 2000-01-05 19:00:03 +0000 |
commit | 47c6b75ea980821737e8030190d24b9aa30e978d (patch) | |
tree | 94e1566e9a7bd7b8b4f3abfadde47faad8f45830 /libguile/ports.c | |
parent | f5421cfc2a694b6c4eb9e035d583cc461994b4ce (diff) | |
download | guile-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.c | 12 |
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 |