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) :- ...@@ -106,6 +106,17 @@ compile_wgpac(Wgpac, Rate) :-
type(Rate, number), type(Rate, number),
compile_wgpac_impl(Wgpac, Rate). 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, _) :- compile_wgpac_impl(Y, _) :-
object(Y), object(Y),
...@@ -220,17 +231,6 @@ compile_wgpac_impl(Wgpac, Rate) :- ...@@ -220,17 +231,6 @@ compile_wgpac_impl(Wgpac, Rate) :-
\\end{example} \\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) :- debug_iswgpac(W) :-
biocham_command, biocham_command,
(wgpac(W) -> write('WGPAC') ; write('not WGPAC')), (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