7 lines
135 B
Plaintext
7 lines
135 B
Plaintext
:- module(chrfreeze,[chrfreeze/2]).
|
|
:- use_module(library(chr)).
|
|
|
|
:- constraints chrfreeze/2.
|
|
|
|
chrfreeze(V,G) <=> nonvar(V) | call(G).
|