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

Simplified template-metafunction-accessor

Browse Source
This commit is contained in:
Suzanne Soy 2021-06-06 03:11:42 +01:00
parent c4c7ddc6ed
commit 32ddaecd6f
1 changed files with 2 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -63,17 +63,8 @@
prop:template-metafunction-guard)) prop:template-metafunction-guard))
(define-values (template-metafunction-accessor) (define-values (template-metafunction-accessor)
(lambda (instance . more-args) (lambda (instance)
(let-values ([(raw) (if (null? more-args) ;; no failure-result given ((template-metafunction-raw-accessor instance) instance)))
(template-metafunction-raw-accessor instance)
(if (null? (cdr more-args))
(let-values ([(failure-result) (car more-args)])
(template-metafunction-raw-accessor instance
failure-result))
(raise-arity-error 'template-metafunction-accessor
(list 1 2)
(cons instance more-args))))])
(raw instance))))
;; A default struct type with prop:template-metafunction. ;; A default struct type with prop:template-metafunction.
;; (struct template-metafunction (proc-id) ;; (struct template-metafunction (proc-id)