diogo
/
yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix typo 

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2067 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2008-01-28 17:13:41 +00:00
parent fc2d89a372
commit e032bcb8be
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pl/yio.yap
View File

@ -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'(_, _).