diff options
| author | Andy Wingo <wingo@pobox.com> | 2016-05-10 15:36:06 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2016-05-10 15:36:06 +0200 |
| commit | 502e3a221319bcb89a1850676445b6c026cec06a (patch) | |
| tree | 69ba8b02d34faedd8f95fe62009f6b0f2ec72dd6 | |
| parent | 837a7e0810f27c2c00991015836fc45925d76fd7 (diff) | |
| download | guile-502e3a221319bcb89a1850676445b6c026cec06a.tar.gz | |
Fix port-clear-stream-start-for-bom-read logic.
* libguile/ports.c (scm_port_clear_stream_start_for_bom_read): Fix
logic.
| -rw-r--r-- | libguile/ports.c | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/libguile/ports.c b/libguile/ports.c index c81bf9a97..69afb4e9a 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; |