| Return Value | {:sequence 0,:key nil,:balance 0,:allowance 0,:holdings nil,:controller nil,:environment {donate (fn [cause] (let [donation *offer* ] (cond (> %1 0) (let [prev-donations (get #14283/all-donations %0 0) ] (accept %1) (cond (lookup-meta *address* all-donations) (def all-donations (assoc #14283/all-donations %0 (+ %2 %1))) (fail :UNDECLARED all-donations)) (return "Thanks for your donation")) (fail :FUNDS "No donation offered!")))),collect (fn [cause] (cond (((fn [sym] (get (#9/read %0) 0)) convex.trust)/trusted? %0 *caller*) (let [amt (get #14283/all-donations %0 0) ] (cond (lookup-meta *address* all-donations) (def all-donations (dissoc #14283/all-donations %0)) (fail :UNDECLARED all-donations)) (transfer *caller* %1)) (fail :TRUST "Not authorised to collect funds"))),all-donations {}},:metadata {donate {:callable true},collect {:callable true}},:parent nil} | Value returned by transaction |
