X-Git-Url: http://git.hcoop.net/bpt/guile.git/blobdiff_plain/e1a191a8ca07dd14b956f6e349044d3dabb424c5..e7c5fb37707f8aaab93a7f27f43c544967b309fb:/libguile/async.c

diff --git a/libguile/async.c b/libguile/async.c
index 1a0f74050..72f23e2ef 100644
--- a/libguile/async.c
+++ b/libguile/async.c
@@ -273,9 +273,9 @@ print_async (exp, port, pstate)
      SCM port;
      scm_print_state *pstate;
 {
-  scm_gen_puts (scm_regular_string, "#<async ", port);
+  scm_puts ("#<async ", port);
   scm_intprint(exp, 16, port);
-  scm_gen_putc('>', port);
+  scm_putc('>', port);
   return 1;
 }