find-up-sexp

• (send a-scheme:text find-up-sexp start-pos) -> (union #f exact-integer)
      start-pos : exact-integer

  Returns the position of the beginning of the next sexpression outside the sexpression that contains start-pos. If there is no such sexpression, it returns #f.