summaryrefslogtreecommitdiff
path: root/libguile/threads.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/threads.c')
-rw-r--r--libguile/threads.c14
1 files changed, 7 insertions, 7 deletions
diff --git a/libguile/threads.c b/libguile/threads.c
index b540f51b1..11fb87f99 100644
--- a/libguile/threads.c
+++ b/libguile/threads.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1995, 1996 Free Software Foundation, Inc.
+/* Copyright (C) 1995, 1996, 1997 Free Software Foundation, Inc.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
@@ -87,9 +87,9 @@ print_thread (exp, port, pstate)
SCM port;
scm_print_state *pstate;
{
- scm_gen_puts (scm_regular_string, "#<thread ", port);
+ scm_puts ("#<thread ", port);
scm_intprint (SCM_CDR (exp), 16, port);
- scm_gen_putc ('>', port);
+ scm_putc ('>', port);
return 1;
}
@@ -107,9 +107,9 @@ print_mutex (exp, port, pstate)
SCM port;
scm_print_state *pstate;
{
- scm_gen_puts (scm_regular_string, "#<mutex ", port);
+ scm_puts ("#<mutex ", port);
scm_intprint (SCM_CDR (exp), 16, port);
- scm_gen_putc ('>', port);
+ scm_putc ('>', port);
return 1;
}
@@ -127,9 +127,9 @@ print_condvar (exp, port, pstate)
SCM port;
scm_print_state *pstate;
{
- scm_gen_puts (scm_regular_string, "#<condition-variable ", port);
+ scm_puts ("#<condition-variable ", port);
scm_intprint (SCM_CDR (exp), 16, port);
- scm_gen_putc ('>', port);
+ scm_putc ('>', port);
return 1;
}