rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

FIXED: correct propagation of tuples_in/2 (#929)

Browse Source 
Many thanks to @notoria for producing a very short test case.
This commit is contained in:
Markus Triska
2021-05-13 21:48:18 +02:00
parent 39aebd7144
commit 581e055359
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/lib/clpz.pl
View File

@@ -3,7 +3,7 @@
Author: Markus Triska Author: Markus Triska
E-mail: triska@metalevel.at E-mail: triska@metalevel.at
WWW: https://www.metalevel.at WWW: https://www.metalevel.at
Copyright (C): 2016-2020 Markus Triska Copyright (C): 2016-2021 Markus Triska
This library provides CLP(ℤ): This library provides CLP(ℤ):
@@ -4283,13 +4283,13 @@ tuples_in(Tuples, Relation) :-
must_be(list(list), Tuples), must_be(list(list), Tuples),
maplist(maplist(fd_variable), Tuples), maplist(maplist(fd_variable), Tuples),
must_be(list(list(integer)), Relation), must_be(list(list(integer)), Relation),
maplist(relation_tuple(Relation), Tuples), maplist(relation_tuple(Relation), Tuples).
do_queue.
relation_tuple(Relation, Tuple) :- relation_tuple(Relation, Tuple) :-
relation_unifiable(Relation, Tuple, Us, _, _), relation_unifiable(Relation, Tuple, Us, _, _),
( ground(Tuple) -> memberchk(Tuple, Relation) ( ground(Tuple) -> memberchk(Tuple, Relation)
; phrase(tuple_domain(Tuple, Us), _), ; new_queue(Q),
phrase((tuple_domain(Tuple, Us),do_queue), [Q], _),
( Tuple = [_,_|_] -> tuple_freeze(Tuple, Us) ( Tuple = [_,_|_] -> tuple_freeze(Tuple, Us)
; true ; true
) )