Commit 9f328085 authored by HEMERY Mathieu's avatar HEMERY Mathieu
Browse files

Ensure that kinetics are always printed, and nicely so!

parent c007c944
......@@ -157,7 +157,7 @@ list_model_reactions :-
\+ (
item([no_inheritance, kind: reaction, item: Reaction]),
\+ (
format('~w.\n', [Reaction])
format('~p.\n', [Reaction])
)
).
......@@ -547,13 +547,7 @@ make_reaction(
;
ReactionNamed=(Name -- Reaction)
),
(
Kinetics = 'MA'(1)
->
Reaction = Body
;
Reaction = (Kinetics for Body)
),
Reaction = (Kinetics for Body),
list_to_solution(Left, LeftSolution),
list_enumeration(Inhibitors, InhibitorsEnumeration),
list_to_solution(Catalyst, CatalystSolution),
......
......@@ -50,6 +50,12 @@ reaction(BasicReaction) :-
basic_reaction(BasicReaction).
% user:portray(for)
% redefine the way for is printed by prolog
user:portray(for(Kinetic, Reaction)) :-
format("~p for ~p",[Kinetic, Reaction]).
:- grammar(rule_name).
......
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