From 168e084c6283f2b906ed00a94ff64485d96d1030 Mon Sep 17 00:00:00 2001
From: Paulo Moura <pmoura@logtalk.org>
Date: Wed, 27 Oct 2010 17:19:26 +0100
Subject: [PATCH] Corrected a bug in my patch for detecting UTF-32 BOMs.

---
 C/iopreds.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C/iopreds.c b/C/iopreds.c
index e31e0f78a..d41d56864 100644
--- a/C/iopreds.c
+++ b/C/iopreds.c
@@ -2438,12 +2438,12 @@ check_bom(int sno, StreamDesc *st)
 		        st->encoding = ENC_ISO_UTF32_LE;
 		        return TRUE;
 	        }
+	      }
 	    st->status  |= HAS_BOM_f;
 	    st->encoding  = ENC_UNICODE_LE;
 	    return TRUE;
       }
     }
-  }
   case 0xEF:
     ch = st->stream_getc(sno);
     if (ch != 0xBB) {