From a3228e96c057f212c0b3924fde09cba0b403e47c Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Tue, 14 Nov 2023 13:40:56 +0100 Subject: [PATCH] ; * sweeprolog.el (-predicate-completion-candidates): Fix typo --- sweeprolog.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.39.2