[Guile-commits] 01/06: Fix port-clear-stream-start-for-bom-read logic.

[Andy Wingo]

wingo pushed a commit to branch wip-port-refactor
in repository guile.

commit 502e3a221319bcb89a1850676445b6c026cec06a
Author: Andy Wingo <address@hidden>
Date:   Tue May 10 15:36:06 2016 +0200

    Fix port-clear-stream-start-for-bom-read logic.
    
    * libguile/ports.c (scm_port_clear_stream_start_for_bom_read): Fix
      logic.
---
 libguile/ports.c |    7 -------
 1 file changed, 7 deletions(-)

diff --git a/libguile/ports.c b/libguile/ports.c
index c81bf9a..69afb4e 100644
--- a/libguile/ports.c
+++ b/libguile/ports.c
@@ -2376,13 +2376,6 @@ SCM_DEFINE (scm_port_clear_stream_start_for_bom_read,
   /* Maybe slurp off a byte-order marker.  */
   pt = SCM_PTAB_ENTRY (port);
   pti->at_stream_start_for_bom_read = 0;
-
-  if (!pti->at_stream_start_for_bom_read)
-    return SCM_BOOL_F;
-
-  /* Maybe slurp off a byte-order marker.  */
-  pt = SCM_PTAB_ENTRY (port);
-  pti->at_stream_start_for_bom_read = 0;
   if (pt->rw_random)
     pti->at_stream_start_for_bom_write = 0;