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 committed by Suzanne Soy
parent 4b20298d7b
commit 5532cbb99f
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 ;; - a function that takes the structure instance and produces such an
;; identifier ;; identifier
;; At run-time, when processing the template, the syntax object whose first ;; 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. ;; procedure.
;; Internally, the value inside the property will be stored as a function ;; Internally, the value inside the property will be stored as a function
@ -70,7 +70,9 @@
(let-values ([(failure-result) (car more-args)]) (let-values ([(failure-result) (car more-args)])
(template-metafunction-raw-accessor instance (template-metafunction-raw-accessor instance
failure-result)) failure-result))
(error "invalid number of arguments [TODO]")))]) (raise-arity-error 'template-metafunction-accessor
(list 1 2)
(cons instance more-args))))])
(raw instance)))) (raw instance))))
;; A default struct type with prop:template-metafunction. ;; A default struct type with prop:template-metafunction.