We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
inverted-when
1 parent d5a65bb commit 6f0aabdCopy full SHA for 6f0aabd
typed-racket-lib/typed-racket/utils/opaque-object.rkt
@@ -53,7 +53,7 @@
53
(define guard/c (dynamic-object/c methods method-ctcs fields field-ctcs))
54
(define guard/c-proj ((contract-late-neg-projection guard/c) blame))
55
(λ (obj neg-party)
56
- (when (not (object? obj))
+ (unless (object? obj)
57
(raise-blame-error blame #:missing-party neg-party obj "expected an object got ~a" obj))
58
(define actual-fields (field-names obj))
59
(define actual-methods
0 commit comments