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

* error.c (err_head): scm_iprin1 --> scm_prin1

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

2
libguile/error.c
View file

@ -82,7 +82,7 @@ err_head (str)
#if 0 #if 0
if (SCM_BOOL_F != *scm_loc_loadpath) if (SCM_BOOL_F != *scm_loc_loadpath)
{ {
scm_iprin1 (*scm_loc_loadpath, scm_cur_errp, 1); scm_prin1 (*scm_loc_loadpath, scm_cur_errp, 1);
scm_gen_puts (scm_regular_string, ", line ", scm_cur_errp); scm_gen_puts (scm_regular_string, ", line ", scm_cur_errp);
scm_intprint ((long) scm_linum, 10, scm_cur_errp); scm_intprint ((long) scm_linum, 10, scm_cur_errp);
scm_gen_puts (scm_regular_string, ": ", scm_cur_errp); scm_gen_puts (scm_regular_string, ": ", scm_cur_errp);