summaryrefslogtreecommitdiff
path: root/libguile/struct.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/struct.c')
-rw-r--r--libguile/struct.c9
1 files changed, 4 insertions, 5 deletions
diff --git a/libguile/struct.c b/libguile/struct.c
index b3f0ef74c..a6931351d 100644
--- a/libguile/struct.c
+++ b/libguile/struct.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1996 Free Software Foundation, Inc.
+/* Copyright (C) 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
@@ -607,12 +607,11 @@ scm_print_struct (exp, port, pstate)
scm_printer_apply (SCM_STRUCT_PRINTER (exp), exp, port, pstate);
else
{
- scm_gen_write (scm_regular_string, "#<struct ", sizeof ("#<struct ") - 1,
- port);
+ scm_lfwrite ("#<struct ", sizeof ("#<struct ") - 1, port);
scm_intprint (SCM_STRUCT_VTABLE (exp), 16, port);
- scm_gen_putc (':', port);
+ scm_putc (':', port);
scm_intprint (exp, 16, port);
- scm_gen_putc ('>', port);
+ scm_putc ('>', port);
}
}