handle atomic arguments to print_message in a default way

5299bb21 · SOLIMAN Sylvain · 56dab4e7 · 5299bb21
Commit 5299bb21 authored Jan 14, 2020 by SOLIMAN Sylvain
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 0 deletions

util.pl util.pl +5 -0

No files found.
--- a/util.pl
+++ b/util.pl
@@ -477,6 +477,11 @@ user:message_hook(_Msg, warning, _Lines) :-
  fail.


+prolog:message(Atom) -->
+  { atomic(Atom) },
+  [ '~w'-[Atom]].
+
+
 :- meta_predicate with_clean(+, 0).

 with_clean(Prototypes, Goal) :-