ligo/src/test/contracts/get_contract.ligo

type storage is unit
type return is list (operation) * storage

function cb (const s : storage) : return is block {
  const c : contract (unit) =
    case (Tezos.get_contract_opt (Tezos.sender) : option (contract (unit))) of
      Some (contract) -> contract
    | None -> (failwith ("cb: No contract.") : contract (unit))
    end
} with (list [Tezos.transaction (unit, 0tez, c)], s)


function cbo (const s : unit) : return is
  block {
    const c : contract (unit) =
      case (Tezos.get_contract_opt (Tezos.sender) : option (contract (unit))) of
        Some (contract) -> contract
      | None -> (failwith ("contract not found") : contract (unit))
      end
  } with (list [Tezos.transaction (unit, 0tez, c)], s)