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

diff --git a/sweeprolog.el b/sweeprolog.el
index 00822e31c056fec3ec3941b6bf35a8f1a05de5a0..65f63fd8a985240950380f1d7c20c7b515b36120 100644 (file)
--- 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)