error msg

dev-refac-2020
Matthew Butterick 6 years ago
parent dab922be52
commit 8bb3201185

@ -56,7 +56,7 @@
[(object? x) (cond [(object? x) (cond
[(memq ref (field-names x)) (dynamic-get-field ref x)] [(memq ref (field-names x)) (dynamic-get-field ref x)]
[else #f])] [else #f])]
[else (raise-argument-error '· "object or dict" x)]))) '·)) [else (raise-argument-error '· "object or dict" (cons x refs))]))) '·))
(define-syntax-rule (· X REF ...) (·-helper X 'REF ...)) (define-syntax-rule (· X REF ...) (·-helper X 'REF ...))

Loading…
Cancel
Save