summaryrefslogtreecommitdiff
path: root/libguile/ports.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/ports.c')
-rw-r--r--libguile/ports.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/ports.c b/libguile/ports.c
index 4a59e134d..af1f8ffe0 100644
--- a/libguile/ports.c
+++ b/libguile/ports.c
@@ -762,7 +762,7 @@ SCM_DEFINE (scm_read_char, "read-char", 0, 1, 0,
c = scm_getc (port);
if (EOF == c)
return SCM_EOF_VAL;
- return SCM_MAKICHR (c);
+ return SCM_MAKE_CHAR (c);
}
#undef FUNC_NAME
@@ -996,7 +996,7 @@ SCM_DEFINE (scm_peek_char, "peek-char", 0, 1, 0,
if (EOF == c)
return SCM_EOF_VAL;
scm_ungetc (c, port);
- return SCM_MAKICHR (c);
+ return SCM_MAKE_CHAR (c);
}
#undef FUNC_NAME
@@ -1010,13 +1010,13 @@ SCM_DEFINE (scm_unread_char, "unread-char", 2, 0, 0,
{
int c;
- SCM_VALIDATE_ICHR (1,cobj);
+ SCM_VALIDATE_CHAR (1,cobj);
if (SCM_UNBNDP (port))
port = scm_cur_inp;
else
SCM_VALIDATE_OPINPORT (2,port);
- c = SCM_ICHR (cobj);
+ c = SCM_CHAR (cobj);
scm_ungetc (c, port);
return cobj;