suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed TODO in prop:template-metafunction error message

Browse Source
This commit is contained in:
Georges Dupéron 2019-02-24 19:20:12 +01:00
parent aaf544088f
commit 1f4ac92a43
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/collects/racket/private/prop-template-metafunction.rkt
View File

@ -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.