Commit f84ac02b authored by Sylvain Soliman's avatar Sylvain Soliman

Do not ignore warnings about discontinuity

parent 70eefe7d
......@@ -106,6 +106,17 @@ compile_wgpac(Wgpac, Rate) :-
type(Rate, number),
compile_wgpac_impl(Wgpac, Rate).
compile_wgpac(WgpacSet, Rate) :-
biocham_command,
type(WgpacSet, {wgpac}),
doc('compiles a set of w-gpac.'),
\+ (
member(Wgpac, WgpacSet),
\+ (
compile_wgpac(Wgpac, Rate)
)
).
compile_wgpac_impl(Y, _) :-
object(Y),
......@@ -220,17 +231,6 @@ compile_wgpac_impl(Wgpac, Rate) :-
\\end{example}
').
compile_wgpac(WgpacSet, Rate) :-
biocham_command,
type(WgpacSet, {wgpac}),
doc('compiles a set of w-gpac.'),
\+ (
member(Wgpac, WgpacSet),
\+ (
compile_wgpac(Wgpac, Rate)
)
).
debug_iswgpac(W) :-
biocham_command,
(wgpac(W) -> write('WGPAC') ; write('not WGPAC')),
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment