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

debugging msg

Browse Source
This commit is contained in:
Vítor Santos Costa 2015-04-13 13:35:37 +01:00
parent ecd980c491
commit 3c73a2e6d6
1 changed files with 70 additions and 72 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pl/consult.yap
View File

@ -879,7 +879,6 @@ db_files(Fs) :-
'$do_startup_reconsult'(_). '$do_startup_reconsult'(_).
'$skip_unix_header'(Stream) :- '$skip_unix_header'(Stream) :-
writeln(Stream),
peek_code(Stream, 0'#), !, % 35 is ASCII for '# peek_code(Stream, 0'#), !, % 35 is ASCII for '#
skip(Stream, 10), skip(Stream, 10),
'$skip_unix_header'(Stream). '$skip_unix_header'(Stream).
@ -1688,4 +1687,3 @@ consult_depth(LV) :- '$show_consult_level'(LV).
@} @}
*/ */