use fixnums in place of bignums where possible
This commit is contained in:
@@ -35,7 +35,7 @@ test_queries_on_call_with_inference_limit :-
|
||||
[true, 2],
|
||||
[inference_limit_exceeded, _]]),
|
||||
findall([X,R1,R2],
|
||||
(call_with_inference_limit(g(X), 4, R1),
|
||||
(call_with_inference_limit(g(X), 4, R1),
|
||||
call_with_inference_limit(g(X), 5, R2)),
|
||||
[[1,true,!],
|
||||
[2,true,!],
|
||||
|
||||
@@ -23,6 +23,6 @@ test_queries_on_facts :-
|
||||
retract(p(_,_,_)),
|
||||
assertz(p(Z, h(Z, W), f(W))),
|
||||
p(f(f(a)), h(f(f(a)), f(a)), f(f(a))),
|
||||
retract(p(Z, h(Z, W), f(W))).[
|
||||
retract(p(Z, h(Z, W), f(W))).
|
||||
|
||||
:- initialization(test_queries_on_facts).
|
||||
:- initialization(test_queries_on_facts).
|
||||
|
||||
@@ -62,4 +62,3 @@ cleanup :- abolish(p/3),
|
||||
abolish(h/1).
|
||||
|
||||
:- initialization(test_queries_on_rules).
|
||||
|
||||
|
||||
Reference in New Issue
Block a user