replace tuple literals

This commit is contained in:
Aaron Blankstein
2020-04-17 17:08:03 -05:00
parent 1a0d04df1c
commit 9eb9677a34
2 changed files with 2 additions and 2 deletions

Binary file not shown.

View File

@@ -61,10 +61,10 @@ faucet" could be implemented as so:
```scheme
(define-public (claim-from-faucet)
(if (is-none? (fetch-entry claimed-before {sender: tx-sender}))
(if (is-none? (fetch-entry claimed-before (tuple (sender tx-sender))))
(let ((requester tx-sender)) ;; set a local variable requester = tx-sender
(begin
(insert-entry! claimed-before {sender: requester} {claimed: true})
(insert-entry! claimed-before (tuple (sender requester)) (tuple (claimed true)))
(as-contract (stx-transfer? u1 tx-sender requester))))
(err 1)))
```