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

fix previous fix

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@429 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-04-06 00:06:24 +00:00
parent aba3854c27
commit 8d579bb35d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pl/yio.yap
View File

@ -771,8 +771,9 @@ stream_property(Stream, Prop) :- var(Prop), !,
'$stream_property'(Stream, Prop). '$stream_property'(Stream, Prop).
stream_property(Stream, Props) :- var(Stream), !, stream_property(Stream, Props) :- var(Stream), !,
'$current_stream'(_,_,Stream), '$current_stream'(_,_,Stream),
'$stream_property'(Stream, Props), !. '$stream_property'(Stream, Props).
stream_property(Stream, Props) :- stream_property(Stream, Props) :-
'$current_stream'(_,_,Stream), !,
'$stream_property'(Stream, Props). '$stream_property'(Stream, Props).
stream_property(Stream, Props) :- stream_property(Stream, Props) :-
throw(error(domain_error(stream,Stream),stream_property(Stream, Props))). throw(error(domain_error(stream,Stream),stream_property(Stream, Props))).