Fix bug in finding arity for verify attributes

2025-02-01 15:53:15 -03:00
parent c548b14f50
commit b8ccebbf24
7 changed files with 106 additions and 2 deletions
--- a/tests/scryer/cli/issues/compilation_bug.in/a.pl
+++ b/tests/scryer/cli/issues/compilation_bug.in/a.pl
@@ -0,0 +1,17 @@
+% Issue 2706
+:- use_module(library(atts)).
+:- use_module(library(lists)).
+:- use_module(library(iso_ext)).
+
+:- attribute a/1.
+
+verify_attributes(_,_, []).
+
+asdf([_|Xs], N) :-
+    true,
+    N1 is N - 1,
+    asdf(Xs, N1).
+
+test_a :-
+    put_atts(A, a(1)),
+    call_with_inference_limit(asdf(A, 1), 1000, _).