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

get rid of write_depth

Browse Source 
fix at_end_of_line.
This commit is contained in:
Vítor Santos Costa 2014-08-20 09:12:40 -05:00
parent 5721ce5e7d
commit 3b5cd95d22
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pl/yio.yap
View File

@ -236,9 +236,9 @@ at_end_of_line :-
at_end_of_line(S). at_end_of_line(S).
at_end_of_line(S) :- at_end_of_line(S) :-
current_stream(S, end_of_stream(past)), !. stream_property(S, end_of_stream(past)), !.
at_end_of_line(S) :- at_end_of_line(S) :-
peek(S,N), ( N = 10 -> true ; N = -1). peek_code(S,N), ( N = 10 -> true ; N = -1).
consult_depth(LV) :- '$show_consult_level'(LV). consult_depth(LV) :- '$show_consult_level'(LV).
@ -301,8 +301,6 @@ current_stream(File, Mode, Stream) :-
sformat(String, Form, Args) :- sformat(String, Form, Args) :-
format(codes(String, []), Form, Args). format(codes(String, []), Form, Args).
write_depth(T,L) :- write_depth(T,L,_).
%% stream_position_data(?Field, +Pos, ?Date) %% stream_position_data(?Field, +Pos, ?Date)
% %
% Extract values from stream position objects. '$stream_position' is % Extract values from stream position objects. '$stream_position' is