From 6096c6407a9a1b551cb8cb25900295b36db9ca38 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@dcc.fc.up.pt>
Date: Wed, 10 Oct 2018 19:20:32 +0100
Subject: [PATCH] fix bad patch

---
 pl/preds.yap | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/pl/preds.yap b/pl/preds.yap
index b417a8448..bd7e00245 100644
--- 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
     ),