From: Eshel Yaron <me@eshelyaron.com>
Date: Tue, 14 Nov 2023 12:40:56 +0000 (+0100)
Subject: ; * sweeprolog.el (-predicate-completion-candidates): Fix typo
X-Git-Tag: V9.1.19-sweep-0.27.1~4
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a3228e96c057f212c0b3924fde09cba0b403e47c;p=sweep.git

; * sweeprolog.el (-predicate-completion-candidates): Fix typo
---

diff --git a/sweeprolog.el b/sweeprolog.el
index 00822e3..65f63fd 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -1469,7 +1469,7 @@ list even when found in the current clause."
                             (afirst t) (bfirst nil))
                        (cond
                         ((and aargs (not bargs)) afirst)
-                        ((and bargs (not bargs)) bfirst)
+                        ((and bargs (not aargs)) bfirst)
                         ((< aflen bflen)         afirst)
                         ((< bflen aflen)         bfirst)
                         ((< arity brity)         afirst)