From c9f76e0f1970631e3da1a0af62392e70d660c507 Mon Sep 17 00:00:00 2001 From: cage Date: Sun, 11 Sep 2022 13:40:44 +0200 Subject: [PATCH] - simplified sorting predicate to complete IRI. --- src/complete.lisp | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/src/complete.lisp b/src/complete.lisp index 8c4c9b6..72d077c 100644 --- a/src/complete.lisp +++ b/src/complete.lisp @@ -214,9 +214,7 @@ list af all possible candidtae for completion." (non-nulls-a (- length-a nulls-a)) (non-nulls-b (- length-b nulls-b))) (cond - ((= length-a length-b) - (> non-nulls-a non-nulls-b)) - ((= non-nulls-a non-nulls-b) + ((= nulls-a nulls-b) (> length-a length-b)) (t (> non-nulls-a non-nulls-b)))))))