subroutinerender_bodyrecursiveprivate

recursive subroutine render_body(c, body, out, top)
    type(fypp_t), intent(inout) :: c    !! the state
    type(body_t), intent(in) :: body    !! the nodes
    type(buffer_t), intent(inout) :: out    !! the output
    logical, intent(in) :: top          !! true if this is not going into a macro's result
    integer :: k

    do k = 1, body%n
        if (allocated(c%error)) return
        call render_node(c, body%ids(k), out, top)
    end do
end subroutine render_body