suzanne.soy/lens
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

use raise-argument-error

Browse Source
This commit is contained in:
AlexKnauth 2015-09-09 22:18:32 -04:00
parent fc6a88f37a
commit 6b1bf35b24
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
unstable/lens/hash-filterer.rkt
View File

@ -32,9 +32,9 @@ module+ test
(hash-filter keep? _)
(λ (tgt nvw)
(unless (hash-andmap keep? nvw)
(error 'hash-filterer-lens-setter
"expected a hash where all key-value pairs pass ~v, given: ~v"
keep? nvw))
(raise-argument-error 'hash-filterer-lens-setter
(format "a hash where all key-value pairs pass ~v" keep?)
nvw))
(hash-union (hash-filter-not keep? tgt) nvw))))
(define (hash-filterer-lens/key keep?)
@ -56,5 +56,5 @@ module+ test
(hash 1 1.0 3 3))
(check-lens-set (hash-filterer-lens =) (hash 1 1.0 2 45 3 3) (hash 4 4.0 5.0 5)
(hash 2 45 4 4.0 5.0 5))
(check-exn exn:fail?
(check-exn exn:fail:contract?
(thunk (lens-set (hash-filterer-lens/key symbol?) (hash 'a 1) (hash "d" 4))))