Skip to content

Commit cc669c8

Browse files
fix: fix assert_jac_length_header
1 parent 8e69dc9 commit cc669c8

File tree

1 file changed

+6
-4
lines changed

1 file changed

+6
-4
lines changed

src/systems/diffeqs/abstractodesystem.jl

+6-4
Original file line numberDiff line numberDiff line change
@@ -141,10 +141,12 @@ end
141141

142142
function assert_jac_length_header(sys)
143143
W = W_sparsity(sys)
144-
identity, expr -> Func([expr.args...], [], LiteralExpr(quote
145-
@assert $(findnz)($(expr.args[1]))[1:2] == $(findnz)($W)[1:2]
146-
$(expr.body)
147-
end))
144+
identity,
145+
function add_header(expr)
146+
Func(expr.args, [], expr.body,
147+
[:(@assert $(SymbolicUtils.Code.toexpr(term(findnz, expr.args[1])))[1:2] ==
148+
$(findnz(W)[1:2]))])
149+
end
148150
end
149151

150152
function generate_W(sys::AbstractODESystem, γ = 1., dvs = unknowns(sys),

0 commit comments

Comments
 (0)