mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 12:20:26 +02:00
Code Activity

* ports.c (scm_unread_string): Bugfixes: Check for SCM_STRINGP,

Browse source 
not SCM_ROSTRINGP; use SCM_ROUCHARS instead of SCM_UCHARS.
This commit is contained in:
Mikael Djurfeldt 1998-11-06 18:15:12 +00:00
parent 44e0a162a2
commit d1c90db5d6
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/ports.c
View file

@ -708,7 +708,7 @@ scm_unread_string (str, port)
SCM str; SCM str;
SCM port; SCM port;
{ {
SCM_ASSERT (SCM_NIMP (str) && SCM_ROSTRINGP (str), SCM_ASSERT (SCM_NIMP (str) && SCM_STRINGP (str),
str, SCM_ARG1, s_unread_string); str, SCM_ARG1, s_unread_string);
if (SCM_UNBNDP (port)) if (SCM_UNBNDP (port))
@ -717,7 +717,7 @@ scm_unread_string (str, port)
SCM_ASSERT (SCM_NIMP (port) && SCM_OPINPORTP (port), SCM_ASSERT (SCM_NIMP (port) && SCM_OPINPORTP (port),
port, SCM_ARG2, s_unread_string); 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; return str;
} }