Commit 18b67de4 authored by Radford Neal's avatar Radford Neal

bug fix

parent d554a5b5
......@@ -88,7 +88,7 @@ static SEXP do_lapply(SEXP call, SEXP op, SEXP args, SEXP rho, int variant)
SET_VECTOR_ELEMENT_TO_VALUE (ans, i, v);
if (g != R_NilValue) {
grad = subassign_list_gradient (grad, g, i, n);
REPROTECT (g, gix);
REPROTECT (grad, gix);
}
}
......
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