diff options
Diffstat (limited to 'libguile/read.c')
-rw-r--r-- | libguile/read.c | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/libguile/read.c b/libguile/read.c index ecf27ff6e..346bcc969 100644 --- a/libguile/read.c +++ b/libguile/read.c @@ -2065,11 +2065,12 @@ scm_i_scan_for_encoding (SCM port) pt = SCM_PTAB_ENTRY (port); - if (pt->rw_active == SCM_PORT_WRITE) - scm_flush_unlocked (port); - if (pt->rw_random) - pt->rw_active = SCM_PORT_READ; + { + if (pt->rw_active == SCM_PORT_WRITE) + scm_flush_unlocked (port); + pt->rw_active = SCM_PORT_READ; + } if (pt->read_pos == pt->read_end) { |