X-Git-Url: http://git.hcoop.net/bpt/guile.git/blobdiff_plain/4bfdf1584d55f7586ec6ba2baef513414fad20b0..ac67270dcf830fec34cefd3ff32592d9f0c093df:/libguile/struct.c

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);
     }
 }