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

fix comments and use of peek in file scanning.

Browse Source
This commit is contained in:
Vitor Santos Costa 2011-05-12 22:34:44 +01:00
parent c1f74b7682
commit 47f1499ae0
2 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
pl/boot.yap
View File

@ -229,7 +229,6 @@ true :- true.
% then recover program. % then recover program.
'$startup_reconsult' :- '$startup_reconsult' :-
get_value('$consult_on_boot',X), X \= [], !, get_value('$consult_on_boot',X), X \= [], !,
writeln(consult:X),
set_value('$consult_on_boot',[]), set_value('$consult_on_boot',[]),
'$do_startup_reconsult'(X). '$do_startup_reconsult'(X).
'$startup_reconsult'. '$startup_reconsult'.

2
pl/consult.yap
View File

@ -454,7 +454,7 @@ initialization(G,OPT) :-
( '$access_yap_flags'(15, 0) -> true ; halt). ( '$access_yap_flags'(15, 0) -> true ; halt).
'$skip_unix_comments'(Stream) :- '$skip_unix_comments'(Stream) :-
peek(Stream, 0'#), !, % 35 is ASCII for '# peek_code(Stream, 0'#), !, % 35 is ASCII for '#
skip(Stream, 10), skip(Stream, 10),
'$skip_unix_comments'(Stream). '$skip_unix_comments'(Stream).
'$skip_unix_comments'(_). '$skip_unix_comments'(_).