From 13f2128587d5e3e99a99ea49b16855ffb1ab9399 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Sat, 7 May 2016 12:40:46 +0200
Subject: [PATCH] Fix port-clear-stream-start-for-bom-read bug

* libguile/ports.c (scm_port_clear_stream_start_for_bom_read): Fix to
  return SCM_BOOL_F instead of 0.
---
 libguile/ports.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libguile/ports.c b/libguile/ports.c
index e82343672..c70185e99 100644
--- a/libguile/ports.c
+++ b/libguile/ports.c
@@ -2381,7 +2381,7 @@ SCM_DEFINE (scm_port_clear_stream_start_for_bom_read,
 
   pti = SCM_PORT_GET_INTERNAL (port);
   if (!pti->at_stream_start_for_bom_read)
-    return 0;
+    return SCM_BOOL_F;
 
   /* Maybe slurp off a byte-order marker.  */
   pt = SCM_PTAB_ENTRY (port);