fail on non-list solutions in setof/3 (#1553)

2022-08-13 10:14:37 -06:00
parent 181be5be3f
commit b51460a59a
2 changed files with 3 additions and 2 deletions
--- a/src/lib/builtins.pl
+++ b/src/lib/builtins.pl
@@ -818,7 +818,8 @@ bagof(Template, Goal, Solution) :-
 :- non_counted_backtracking iterate_variants_and_sort/3.

 iterate_variants_and_sort([V-Solution0|GroupSolutions], V, Solution) :-
-    sort(Solution0, Solution),
+    sort(Solution0, Solution1),
+    Solution1 = Solution,
    (  GroupSolutions == [] -> !
    ;  true
    ).