mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 15:00:21 +02:00
Code Activity

Fix port-clear-stream-start-for-bom-read logic.

Browse source 
* libguile/ports.c (scm_port_clear_stream_start_for_bom_read): Fix
  logic.
This commit is contained in:
Andy Wingo 2016-05-10 15:36:06 +02:00
parent 837a7e0810
commit 502e3a2213
1 changed files with 0 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/ports.c
View file

@ -2370,13 +2370,6 @@ SCM_DEFINE (scm_port_clear_stream_start_for_bom_read,
SCM_VALIDATE_PORT (1, port); SCM_VALIDATE_PORT (1, port);
pti = SCM_PORT_GET_INTERNAL (port); pti = SCM_PORT_GET_INTERNAL (port);
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 (!pti->at_stream_start_for_bom_read) if (!pti->at_stream_start_for_bom_read)
return SCM_BOOL_F; return SCM_BOOL_F;