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 bug

Browse source 
* libguile/ports.c (scm_port_clear_stream_start_for_bom_read): Fix to
  return SCM_BOOL_F instead of 0.
This commit is contained in:
Andy Wingo 2016-05-07 12:40:46 +02:00
parent bed7bdc19c
commit 13f2128587
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/ports.c
View file

@ -2381,7 +2381,7 @@ SCM_DEFINE (scm_port_clear_stream_start_for_bom_read,
pti = SCM_PORT_GET_INTERNAL (port); pti = SCM_PORT_GET_INTERNAL (port);
if (!pti->at_stream_start_for_bom_read) if (!pti->at_stream_start_for_bom_read)
return 0; return SCM_BOOL_F;
/* Maybe slurp off a byte-order marker. */ /* Maybe slurp off a byte-order marker. */
pt = SCM_PTAB_ENTRY (port); pt = SCM_PTAB_ENTRY (port);