From d1c90db5d6a05aa7ef8fe089cc739dd45cb7ea0e Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Fri, 6 Nov 1998 18:15:12 +0000 Subject: [PATCH] * ports.c (scm_unread_string): Bugfixes: Check for SCM_STRINGP, not SCM_ROSTRINGP; use SCM_ROUCHARS instead of SCM_UCHARS. --- libguile/ports.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/libguile/ports.c b/libguile/ports.c index d59026841..18fc0b420 100644 --- a/libguile/ports.c +++ b/libguile/ports.c @@ -708,7 +708,7 @@ scm_unread_string (str, port) SCM str; SCM port; { - SCM_ASSERT (SCM_NIMP (str) && SCM_ROSTRINGP (str), + SCM_ASSERT (SCM_NIMP (str) && SCM_STRINGP (str), str, SCM_ARG1, s_unread_string); if (SCM_UNBNDP (port)) @@ -717,7 +717,7 @@ scm_unread_string (str, port) SCM_ASSERT (SCM_NIMP (port) && SCM_OPINPORTP (port), port, SCM_ARG2, s_unread_string); - scm_ungets (SCM_UCHARS (str), SCM_LENGTH (str), port); + scm_ungets (SCM_ROUCHARS (str), SCM_LENGTH (str), port); return str; }