π²STX per stSTX Calculation
How the ratio of STX per stSTX is enforced in Clarity
(define-public (get-stx-per-ststx (reserve-trait <sticky-reserve-trait>))
(let (
(stx-amount (unwrap-panic (contract-call? reserve-trait get-total-stx)))
)
(try! (contract-call? .sticky-dao check-is-protocol (contract-of reserve-trait)))
(ok (get-stx-per-ststx-helper stx-amount))
)
)
(define-read-only (get-stx-per-ststx-helper (stx-amount uint))
(let (
(ststx-supply (unwrap-panic (contract-call? .ststx-token get-total-supply)))
)
(if (is-eq ststx-supply u0)
u1000000
(/ (* stx-amount u1000000) ststx-supply)
)
)
)Last updated