Improve error messages in ulex parsing

This partially addresses issue Attempto#2. Malformed file errors will display the line number of the line that is causing the error.
petekeller2 · Sep 8, 2018 · b7b530d · b7b530d
1 parent a110cc9
commit b7b530d
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/prolog/lexicon/ulex.pl b/prolog/lexicon/ulex.pl
@@ -75,7 +75,9 @@
 		),
 		_CatchType,
 		(
-			with_output_to(atom(Message), format("The user lexicon file is not a valid Prolog file.", [])),
+			line_count(LexiconStream, MalformedLine),
+			atom_concat("The use lexicon file is not a valid Prolog file. Check line ", MalformedLine, RepairMessage),
+			with_output_to(atom(Message), format(RepairMessage, [])),
 			add_error_message_once(lexicon, '', 'Malformed file.', Message)
 		)
 	),