@@ -152,28 +152,28 @@ ReactionSystems generated through `@reaction_network` are complete.
152
152
# return :(complete(@network_component $(args... )))
153
153
# end
154
154
macro reaction_network (name:: Symbol , ex:: Expr )
155
- complete (make_reaction_system (MacroTools. striplines (ex); name = :($ (QuoteNode (name)))))
155
+ :( complete ($ ( make_reaction_system (MacroTools. striplines (ex); name = :($ (QuoteNode (name)) )))))
156
156
end
157
157
158
- # allows @reaction_network $name begin ... to interpolate variables storing a name
158
+ # Allows @reaction_network $name begin ... to interpolate variables storing a name.
159
159
macro reaction_network (name:: Expr , ex:: Expr )
160
- complete (make_reaction_system (MacroTools. striplines (ex); name = :($ (esc (name. args[1 ])))))
160
+ :( complete ($ ( make_reaction_system (MacroTools. striplines (ex); name = :($ (esc (name. args[1 ])) )))))
161
161
end
162
162
163
163
macro reaction_network (ex:: Expr )
164
164
ex = MacroTools. striplines (ex)
165
165
166
166
# no name but equations: @reaction_network begin ... end ...
167
167
if ex. head == :block
168
- complete (make_reaction_system (ex))
168
+ :( complete ($ ( make_reaction_system (ex)) ))
169
169
else # empty but has interpolated name: @reaction_network $name
170
170
networkname = :($ (esc (ex. args[1 ])))
171
171
return Expr (:block , :(@parameters t),
172
172
:(complete (ReactionSystem (Reaction[], t, [], []; name = $ networkname))))
173
173
end
174
174
end
175
175
176
- # Returns a empty network (with, or without, a declared name)
176
+ # Returns a empty network (with, or without, a declared name).
177
177
macro reaction_network (name:: Symbol = gensym (:ReactionSystem ))
178
178
return Expr (:block , :(@parameters t),
179
179
:(complete (ReactionSystem (Reaction[], t, [], []; name = $ (QuoteNode (name))))))
@@ -188,7 +188,7 @@ macro network_component(name::Symbol, ex::Expr)
188
188
make_reaction_system (MacroTools. striplines (ex); name = :($ (QuoteNode (name))))
189
189
end
190
190
191
- # allows @network_component $name begin ... to interpolate variables storing a name
191
+ # Allows @network_component $name begin ... to interpolate variables storing a name.
192
192
macro network_component (name:: Expr , ex:: Expr )
193
193
make_reaction_system (MacroTools. striplines (ex); name = :($ (esc (name. args[1 ]))))
194
194
end
@@ -206,7 +206,7 @@ macro network_component(ex::Expr)
206
206
end
207
207
end
208
208
209
- # Returns a empty network (with, or without, a declared name)
209
+ # Returns a empty network (with, or without, a declared name).
210
210
macro network_component (name:: Symbol = gensym (:ReactionSystem ))
211
211
return Expr (:block , :(@parameters t),
212
212
:(ReactionSystem (Reaction[], t, [], []; name = $ (QuoteNode (name)))))
0 commit comments