improve '$skip_max_list'/4 and length/2 (#1023, #110)

2022-01-29 00:57:39 -07:00
parent b3006f6fd8
commit 0d653a2ce6
9 changed files with 146 additions and 121 deletions
--- a/src/lib/ordsets.pl
+++ b/src/lib/ordsets.pl
@@ -89,7 +89,7 @@ because the order it relies on may have been changed.
 %   setof/3.

 is_ordset(Term) :-
-    '$skip_max_list'(_, -1, Term, Tail), Tail == [], %% is_list(Term),
+    '$skip_max_list'(_, _, Term, Tail), Tail == [], %% is_list(Term),
    is_ordset2(Term).

 is_ordset2([]).