From 8bb32011853b52379caa1babce1c94a4b4955f4f Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Thu, 13 Dec 2018 17:13:42 -0800 Subject: [PATCH] error msg --- sugar/unstable/js.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/sugar/unstable/js.rkt b/sugar/unstable/js.rkt index e9d86a1..8cb0a2c 100644 --- a/sugar/unstable/js.rkt +++ b/sugar/unstable/js.rkt @@ -56,7 +56,7 @@ [(object? x) (cond [(memq ref (field-names x)) (dynamic-get-field ref x)] [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 ...))