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

smal fix

Browse Source
This commit is contained in:
Vitor Santos Costa 2016-12-16 03:54:16 -06:00
parent cacdd173b5
commit 436a4b4235
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pl/dbload.yap
View File

@ -26,13 +26,13 @@
put_module_atts/2]). put_module_atts/2]).
load_mega_clause( Stream ) :- load_mega_clause( Stream ) :-
line_spec( Stream, Line), % line_spec( Stream, Line),
repeat, repeat,
( fact( Stream ), fail ; ( fact( Stream ), fail ;
stream_property(Stream, at_end_of_file( on )). stream_property(Stream, at_end_of_file( on )) ).
'$input_lines'(R, csv, yeLines ) :- '$input_lines'(R, csv, Lines ) :-
'$process_lines'(R, Lines, Type ), '$process_lines'(R, Lines, _Type ),
close(R). close(R).
prolog:load_db(Fs) :- prolog:load_db(Fs) :-

2
pl/messages.yap
View File

@ -675,6 +675,8 @@ syntax_error_token(':', _LC) --> !,
[ ':' - [] ]. [ ':' - [] ].
syntax_error_token('|', _LC) --> !, syntax_error_token('|', _LC) --> !,
[ '|' - [] ]. [ '|' - [] ].
syntax_error_token('l', _LC) --> !,
[ '|' - [] ].
syntax_error_token(nl, LC) --> !, syntax_error_token(nl, LC) --> !,
[ '~*| ' -[LC], nl ]. [ '~*| ' -[LC], nl ].
syntax_error_token(B, _LC) --> !, syntax_error_token(B, _LC) --> !,