mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 15:00:21 +02:00
Code Activity

* strports.c (scm_strprint_obj): scm_iprin1 --> scm_prin1

Browse source
This commit is contained in:
Mikael Djurfeldt 1996-09-12 23:43:18 +00:00
parent ee34012038
commit 8781806909
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/strports.c
View file

@ -223,7 +223,7 @@ scm_strprint_obj (obj)
str = scm_makstr (64, 0); str = scm_makstr (64, 0);
port = scm_mkstrport (SCM_MAKINUM (0), str, SCM_OPN | SCM_WRTNG, "scm_strprint_obj"); port = scm_mkstrport (SCM_MAKINUM (0), str, SCM_OPN | SCM_WRTNG, "scm_strprint_obj");
scm_iprin1 (obj, port, 1); scm_prin1 (obj, port, 1);
{ {
SCM answer; SCM answer;
SCM_DEFER_INTS; SCM_DEFER_INTS;