Commit aa662f2b authored by Thierry Martinez's avatar Thierry Martinez

Fixed bug for events

parent c35ff324
......@@ -687,7 +687,7 @@ generate_clause(Clause, Variables, VariableNames, Type) :-
)
->
write_doc(Contents),
nl
format_doc('\n', [])
;
Clause = (:- Predicate),
(
......
......@@ -35,12 +35,7 @@ add_event(Condition, ParameterValues) :-
doc('
\\end{example}
'),
\+ (
member(ParameterValue, ParameterValues),
\+ (
add_item([kind: event, item: event(Condition, ParameterValue)])
)
).
add_item([kind: event, item: event(Condition, ParameterValues)]).
list_events :-
......
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