suppress tabled/2 existence errors in tabling library, do not print evaluation errors generated by term and goal expansion in loader.pl

2021-02-28 18:56:24 -07:00
parent 3d4a7f97e1
commit 6079402dc4
2 changed files with 10 additions and 3 deletions
--- a/src/loader.pl
+++ b/src/loader.pl
@@ -18,7 +18,9 @@


 '$print_message_and_fail'(Error) :-
-    (  Error = error(existence_error(procedure, Expansion), Expansion) ->
+    (  (  Error = error(existence_error(procedure, Expansion), Expansion)
+       ;  Error = error(evaluation_error((_:_)/_),Expansion)
+       )  ->
       (  (  Expansion = goal_expansion/2
          ;  Expansion = term_expansion/2
          )  ->