mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* print.c (scm_iprin1): Mark print state as revealed when

Browse source 
dispatching to generic write or display.
This commit is contained in:
Mikael Djurfeldt 2001-11-02 13:55:38 +00:00
parent 08112c957b
commit 7663c008a5
2 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/ChangeLog
View file

@ -1,5 +1,8 @@
2001-11-02 Mikael Djurfeldt <mdj@linnaeus> 2001-11-02 Mikael Djurfeldt <mdj@linnaeus>
* print.c (scm_iprin1): Mark print state as revealed when
dispatching to generic write or display.
* unif.c (scm_ra2contig): Fixed memory overwrite bug. * unif.c (scm_ra2contig): Fixed memory overwrite bug.
2001-11-02 Marius Vollmer <mvo@zagadka.ping.de> 2001-11-02 Marius Vollmer <mvo@zagadka.ping.de>

1
libguile/print.c
View file

@ -462,6 +462,7 @@ scm_iprin1 (SCM exp, SCM port, scm_print_state *pstate)
SCM_NEWSMOB (pwps, SCM_NEWSMOB (pwps,
scm_tc16_port_with_ps, scm_tc16_port_with_ps,
SCM_UNPACK (scm_cons (port, pstate->handle))); SCM_UNPACK (scm_cons (port, pstate->handle)));
pstate->revealed = 1;
scm_call_generic_2 (print, exp, pwps); scm_call_generic_2 (print, exp, pwps);
} }
else else