"I'm not sure if this function is actually needed.  It was part of fill_in_next()"
" I am saving it just in case.  The commented stuff at the bottom is some examples of scratch owork"
"pj was a cropped version of parsed_json"


  check_names <- function(x, find="next") {
    nms=names(x)
    ret <- ifelseNULL(nms, NA, nms == find)
    setattr(ret, "names", nms)
    if (is.list(x))
      ret <- c(ret, sapply(x, check_names))
    return (ret)
  }

#     debug(check_names)
#     check_names(pj)
#     check_names(x)
#     x <- pj$owner
#     
#     
#     sapply(pj, names)
#     
#     parent_name <- "top"
#     
#     
#     ret_nt <- name_tree(pj)
#     grepl("(^|\\$)next$", ret_nt)
#     
#     name_tree_of_list(pj)
#     name_tree_of_list(pj, sep="*")
#     name_tree_of_list(pj, endnode_names_included=TRUE)
#     
#     pj$owner$uri <- c("TEST_NAME" = pj$owner$uri)
#