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

Use FUNC_NAME.

Browse source
This commit is contained in:
Keisuke Nishida 2001-03-13 02:14:12 +00:00
parent b97c6762de
commit 1a92274c8e
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

@ -320,7 +320,7 @@ SCM_DEFINE (scm_object_to_string, "object->string", 1, 0, 0,
SCM port; SCM port;
str = scm_makstr (0, 0); str = scm_makstr (0, 0);
port = scm_mkstrport (SCM_INUM0, str, SCM_OPN | SCM_WRTNG, "scm_strprint_obj"); port = scm_mkstrport (SCM_INUM0, str, SCM_OPN | SCM_WRTNG, FUNC_NAME);
scm_prin1 (obj, port, 1); scm_prin1 (obj, port, 1);
return scm_strport_to_string (port); return scm_strport_to_string (port);
} }