This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
yap-6.3/packages/chr/Tests/passive_check.chr

13 lines
230 B
Plaintext

:- module(passive_check,[passive_check/0]).
:- use_module(library(chr)).
:- chr_constraint a/1, b/1.
:- chr_option(debug,off).
:- chr_option(optimize,full).
a(X) # ID, b(X) <=> true pragma passive(ID).
passive_check :-
a(_).