diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-09-12 23:44:21 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-09-12 23:44:21 +0000 |
commit | a25840f95de434efbe90ce807f4bba9caed6c8cb (patch) | |
tree | 1ad60831379be04044437abdfb0e0cf8e423c57d /libguile/error.c | |
parent | c88edfaf17c79e317b07149bd26e65809745ff75 (diff) | |
download | guile-a25840f95de434efbe90ce807f4bba9caed6c8cb.tar.gz |
* error.c (err_head): scm_iprin1 --> scm_prin1
Diffstat (limited to 'libguile/error.c')
-rw-r--r-- | libguile/error.c | 2 |
1 files changed, 1 insertions, 1 deletions
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); |