From e032bcb8be515804467c6e10903e6000312f9718 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Mon, 28 Jan 2008 17:13:41 +0000
Subject: [PATCH] fix typo

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2067 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 pl/yio.yap | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/pl/yio.yap b/pl/yio.yap
index 7c3e78610..9eaac0b07 100644
--- a/pl/yio.yap
+++ b/pl/yio.yap
@@ -61,7 +61,7 @@ open(F,T,S,Opts) :-
 	'$check_io_opts'(Opts,open(F,T,S,Opts)),
 	'$process_open_opts'(Opts, 0, N,  Aliases, E, BOM),
 	'$open2'(F,T,S,N,E),
-	'$process_bom'(S, BOM).
+	'$process_bom'(S, BOM),
 	'$process_open_aliases'(Aliases,S).
 
 '$open2'(Source,M,T,N,_) :- var(Source), !,
@@ -74,8 +74,7 @@ open(F,T,S,Opts) :-
 	'$open'(File,Mode,Stream,N,Encoding).
 
 '$process_bom'(S, BOM) :-
-	var(BOM), !,
-	( '$has_bom'(S) -> BOM = true ; BOM = false ).
+	var(BOM), !,	( '$has_bom'(S) -> BOM = true ; BOM = false ).
 '$process_bom'(_, _).