fix bad patch

2018-10-10 19:20:32 +01:00 · 2018-10-10 19:20:32 +01:00 · 6096c6407a
parent 7666a005dc
commit 6096c6407a
1 changed files with 2 additions and 2 deletions
--- a/pl/preds.yap
+++ b/pl/preds.yap
@ -596,9 +596,9 @@ Defines the relation:  _P_ is a currently defined predicate whose name is the at
 */
 current_predicate(A,T0) :-
    '$yap_strip_module'(T0, M, T),
-  (	var(Mod)
+  (	var(M)
  ->
-      '$all_current_modules'(Mod)
+      '$all_current_modules'(M)
    ;
      true
    ),