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/c.pl
+++ b/tests/scryer/cli/issues/compilation_bug.in/c.pl
@@ -0,0 +1,19 @@
+% Issue 2809
+
+:- use_module(library(freeze)).
+
+main1 :-
+  freeze(Minor,true),
+  cbor_minor_value1(Minor, []).
+
+main2 :-
+  freeze(Minor,true),
+  cbor_minor_value2(Minor, []).
+
+cbor_minor_value1(24, S0) :- numbytes_number(1, S0).
+
+cbor_minor_value2(24, S0) :- S0=S1, numbytes_number(1, S1).
+
+numbytes_number(_, []).
+
+test_c :- main1.