From 6b1bf35b24cad460f3f9e2043dd458cd13a5d459 Mon Sep 17 00:00:00 2001 From: AlexKnauth Date: Wed, 9 Sep 2015 22:18:32 -0400 Subject: [PATCH] use raise-argument-error --- unstable/lens/hash-filterer.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/unstable/lens/hash-filterer.rkt b/unstable/lens/hash-filterer.rkt index d0a5f29..087b405 100644 --- a/unstable/lens/hash-filterer.rkt +++ b/unstable/lens/hash-filterer.rkt @@ -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))))