From 1f4ac92a4323ca7bb4131849e1a56c2e2ff01c31 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= <georges.duperon@gmail.com>
Date: Sun, 24 Feb 2019 19:20:12 +0100
Subject: [PATCH] Fixed TODO in prop:template-metafunction error message
---
.../collects/racket/private/prop-template-metafunction.rkt | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/racket/collects/racket/private/prop-template-metafunction.rkt b/racket/collects/racket/private/prop-template-metafunction.rkt
index 78fd877292..b5d88fdc34 100644
--- a/racket/collects/racket/private/prop-template-metafunction.rkt
+++ b/racket/collects/racket/private/prop-template-metafunction.rkt
@@ -10,7 +10,7 @@
;; - a function that takes the structure instance and produces such an
;; identifier
;; At run-time, when processing the template, the syntax object whose first
- ;; element is a metafunction identifiers is passed to this metafunction
+ ;; element is a metafunction identifier is passed to this metafunction
;; procedure.
;; Internally, the value inside the property will be stored as a function
@@ -70,7 +70,9 @@
(let-values ([(failure-result) (car more-args)])
(template-metafunction-raw-accessor instance
failure-result))
- (error "invalid number of arguments [TODO]")))])
+ (raise-arity-error 'template-metafunction-accessor
+ (list 1 2)
+ (cons instance more-args))))])
(raw instance))))
;; A default struct type with prop:template-metafunction.