correct improper use of multifile directive in tabling/wrapper.pl

2020-02-06 10:12:57 -07:00
parent 0be8abd38c
commit 1b5cf493d6
1 changed files with 2 additions and 4 deletions
--- a/src/prolog/lib/tabling/wrapper.pl
+++ b/src/prolog/lib/tabling/wrapper.pl
@@ -80,6 +80,7 @@ wrappers(Name/Arity) -->
 	[ (   Head :-
 		 start_tabling(Module:Head, WrappedHead)
 	  ),
+	  (:- multifile(table_wrapper:tabled/2)),
 	  table_wrapper:tabled(Head, Module)
 	].

@@ -107,10 +108,7 @@ rename_term(Name, WrapName) :-
 	atom_concat(Name, ' tabled', WrapName).


-user:term_expansion(Term0,
-		    [ (:- multifile(table_wrapper:tabled/2))
-		    | Clauses
-		    ]) :-
+user:term_expansion(Term0, Clauses) :-
        nonvar(Term0),
 	Term0 = (:- table Preds),
 	phrase(wrappers(Preds), Clauses).