diff options
Diffstat (limited to 'libguile/throw.c')
-rw-r--r-- | libguile/throw.c | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/libguile/throw.c b/libguile/throw.c index 3ad4d866e..b83b78f5d 100644 --- a/libguile/throw.c +++ b/libguile/throw.c @@ -94,10 +94,10 @@ printjb (exp, port, pstate) SCM port; scm_print_state *pstate; { - scm_gen_puts (scm_regular_string, "#<jmpbuffer ", port); - scm_gen_puts (scm_regular_string, JBACTIVE(exp) ? "(active) " : "(inactive) ", port); + scm_puts ("#<jmpbuffer ", port); + scm_puts (JBACTIVE(exp) ? "(active) " : "(inactive) ", port); scm_intprint((SCM) JBJMPBUF(exp), 16, port); - scm_gen_putc ('>', port); + scm_putc ('>', port); return 1 ; } @@ -273,7 +273,7 @@ print_lazy_catch (SCM closure, SCM port, scm_print_state *pstate) sprintf (buf, "#<lazy-catch 0x%lx 0x%lx>", (long) c->handler, (long) c->handler_data); - scm_gen_puts (scm_regular_string, buf, port); + scm_puts (buf, port); return 1; } @@ -489,8 +489,8 @@ handler_message (void *handler_data, SCM tag, SCM args) if (! prog_name) prog_name = "guile"; - scm_gen_puts (scm_regular_string, prog_name, p); - scm_gen_puts (scm_regular_string, ": ", p); + scm_puts (prog_name, p); + scm_puts (": ", p); if (scm_ilength (args) >= 3) { @@ -501,11 +501,11 @@ handler_message (void *handler_data, SCM tag, SCM args) } else { - scm_gen_puts (scm_regular_string, "uncaught throw to ", p); + scm_puts ("uncaught throw to ", p); scm_prin1 (tag, p, 0); - scm_gen_puts (scm_regular_string, ": ", p); + scm_puts (": ", p); scm_prin1 (args, p, 1); - scm_gen_putc ('\n', p); + scm_putc ('\n', p); } } |