From a25840f95de434efbe90ce807f4bba9caed6c8cb Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Thu, 12 Sep 1996 23:44:21 +0000 Subject: [PATCH] * error.c (err_head): scm_iprin1 --> scm_prin1 --- libguile/error.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/libguile/error.c b/libguile/error.c index fd654d80b..440b91a87 100644 --- a/libguile/error.c +++ b/libguile/error.c @@ -82,7 +82,7 @@ err_head (str) #if 0 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_intprint ((long) scm_linum, 10, scm_cur_errp); scm_gen_puts (scm_regular_string, ": ", scm_cur_errp);