From 436a4b42355714d00dee3abfff7b0761071c0ef5 Mon Sep 17 00:00:00 2001 From: Vitor Santos Costa Date: Fri, 16 Dec 2016 03:54:16 -0600 Subject: [PATCH] smal fix --- pl/dbload.yap | 8 ++++---- pl/messages.yap | 2 ++ 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/pl/dbload.yap b/pl/dbload.yap index 757b2e0cf..f2ebcbcb3 100644 --- a/pl/dbload.yap +++ b/pl/dbload.yap @@ -26,13 +26,13 @@ put_module_atts/2]). load_mega_clause( Stream ) :- - line_spec( Stream, Line), +% line_spec( Stream, Line), repeat, ( fact( Stream ), fail ; - stream_property(Stream, at_end_of_file( on )). + stream_property(Stream, at_end_of_file( on )) ). -'$input_lines'(R, csv, yeLines ) :- - '$process_lines'(R, Lines, Type ), +'$input_lines'(R, csv, Lines ) :- + '$process_lines'(R, Lines, _Type ), close(R). prolog:load_db(Fs) :- diff --git a/pl/messages.yap b/pl/messages.yap index c82ffd4a1..d61f52f33 100644 --- a/pl/messages.yap +++ b/pl/messages.yap @@ -675,6 +675,8 @@ syntax_error_token(':', _LC) --> !, [ ':' - [] ]. syntax_error_token('|', _LC) --> !, [ '|' - [] ]. +syntax_error_token('l', _LC) --> !, + [ '|' - [] ]. syntax_error_token(nl, LC) --> !, [ '~*| ' -[LC], nl ]. syntax_error_token(B, _LC) --> !,