get-backward-sexp

• (send a-scheme:text get-backward-sexp start) -> (union exact-integer #f)
      start : exact-integer

  Returns the position of the start of the S-expression before or containing start, or #f if there is no appropriate answer.