guile/guile-core/libguile ChangeLog print.c

[Mikael Djurfeldt]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Mikael Djurfeldt <address@hidden>       01/11/02 08:55:38

Modified files:
        guile-core/libguile: ChangeLog print.c 

Log message:
        * print.c (scm_iprin1): Mark print state as revealed when
        dispatching to generic write or display.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/ChangeLog.diff?cvsroot=OldCVS&tr1=1.1538&tr2=1.1539&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/print.c.diff?cvsroot=OldCVS&tr1=1.134&tr2=1.135&r1=text&r2=text

Patches:
Index: guile/guile-core/libguile/ChangeLog
diff -u guile/guile-core/libguile/ChangeLog:1.1538 
guile/guile-core/libguile/ChangeLog:1.1539
--- guile/guile-core/libguile/ChangeLog:1.1538  Fri Nov  2 07:31:50 2001
+++ guile/guile-core/libguile/ChangeLog Fri Nov  2 08:55:38 2001
@@ -1,5 +1,8 @@
 2001-11-02  Mikael Djurfeldt  <address@hidden>
 
+       * print.c (scm_iprin1): Mark print state as revealed when
+       dispatching to generic write or display.
+
        * unif.c (scm_ra2contig): Fixed memory overwrite bug.
 
 2001-11-02  Marius Vollmer  <address@hidden>
Index: guile/guile-core/libguile/print.c
diff -u guile/guile-core/libguile/print.c:1.134 
guile/guile-core/libguile/print.c:1.135
--- guile/guile-core/libguile/print.c:1.134     Thu Oct 11 19:20:52 2001
+++ guile/guile-core/libguile/print.c   Fri Nov  2 08:55:38 2001
@@ -462,6 +462,7 @@
                SCM_NEWSMOB (pwps,
                             scm_tc16_port_with_ps,
                             SCM_UNPACK (scm_cons (port, pstate->handle)));
+               pstate->revealed = 1;
                scm_call_generic_2 (print, exp, pwps);
              }
            else