diff options
Diffstat (limited to 'libguile/ports.c')
-rw-r--r-- | libguile/ports.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/libguile/ports.c b/libguile/ports.c index 7da3c704f..dc35a908f 100644 --- a/libguile/ports.c +++ b/libguile/ports.c @@ -587,7 +587,7 @@ SCM_DEFINE (scm_pt_size, "pt-size", 0, 0, 0, "is only included in @code{--enable-guile-debug} builds.") #define FUNC_NAME s_scm_pt_size { - return SCM_MAKINUM (scm_i_port_table_size); + return SCM_I_MAKINUM (scm_i_port_table_size); } #undef FUNC_NAME @@ -641,7 +641,7 @@ SCM_DEFINE (scm_port_revealed, "port-revealed", 1, 0, 0, { port = SCM_COERCE_OUTPORT (port); SCM_VALIDATE_OPENPORT (1, port); - return SCM_MAKINUM (scm_revealed_count (port)); + return SCM_I_MAKINUM (scm_revealed_count (port)); } #undef FUNC_NAME @@ -1411,7 +1411,7 @@ SCM_DEFINE (scm_truncate_file, "truncate-file", 1, 1, 0, if (SCM_STRINGP (object)) SCM_MISC_ERROR("must supply length if OBJECT is a filename", SCM_EOL); - length = scm_seek (object, SCM_INUM0, SCM_MAKINUM (SEEK_CUR)); + length = scm_seek (object, SCM_INUM0, SCM_I_MAKINUM (SEEK_CUR)); } c_length = SCM_NUM2LONG (2, length); if (c_length < 0) @@ -1460,7 +1460,7 @@ SCM_DEFINE (scm_port_line, "port-line", 1, 0, 0, { port = SCM_COERCE_OUTPORT (port); SCM_VALIDATE_OPENPORT (1, port); - return SCM_MAKINUM (SCM_LINUM (port)); + return SCM_I_MAKINUM (SCM_LINUM (port)); } #undef FUNC_NAME @@ -1492,7 +1492,7 @@ SCM_DEFINE (scm_port_column, "port-column", 1, 0, 0, { port = SCM_COERCE_OUTPORT (port); SCM_VALIDATE_OPENPORT (1, port); - return SCM_MAKINUM (SCM_COL (port)); + return SCM_I_MAKINUM (SCM_COL (port)); } #undef FUNC_NAME @@ -1636,9 +1636,9 @@ void scm_init_ports () { /* lseek() symbols. */ - scm_c_define ("SEEK_SET", SCM_MAKINUM (SEEK_SET)); - scm_c_define ("SEEK_CUR", SCM_MAKINUM (SEEK_CUR)); - scm_c_define ("SEEK_END", SCM_MAKINUM (SEEK_END)); + scm_c_define ("SEEK_SET", SCM_I_MAKINUM (SEEK_SET)); + scm_c_define ("SEEK_CUR", SCM_I_MAKINUM (SEEK_CUR)); + scm_c_define ("SEEK_END", SCM_I_MAKINUM (SEEK_END)); scm_tc16_void_port = scm_make_port_type ("void", fill_input_void_port, write_void_port); |