From 121a45f7ed2485537b898bc7ebca158c9e43f7d3 Mon Sep 17 00:00:00 2001
From: AlexKnauth <alexander@knauth.org>
Date: Fri, 15 Feb 2019 21:50:25 -0500
Subject: [PATCH] don't provide template-metafunction-accessor
---
pkgs/racket-doc/syntax/scribblings/parse/experimental.scrbl | 5 ++---
racket/collects/racket/private/template.rkt | 1 -
2 files changed, 2 insertions(+), 4 deletions(-)
diff --git a/pkgs/racket-doc/syntax/scribblings/parse/experimental.scrbl b/pkgs/racket-doc/syntax/scribblings/parse/experimental.scrbl
index b8fcbe5ed3..003893f567 100644
--- a/pkgs/racket-doc/syntax/scribblings/parse/experimental.scrbl
+++ b/pkgs/racket-doc/syntax/scribblings/parse/experimental.scrbl
@@ -349,10 +349,9 @@ invalid binding list.
@deftogether[
((defthing prop:template-metafunction struct-type-property?)
- (defthing template-metafunction? (-> any/c boolean?))
- (defthing template-metafunction-accessor (-> template-metafunction? identifier?)))]{
+ (defthing template-metafunction? (-> any/c boolean?)))]{
- A structure type property, and the associated predicate and accessor. The
+ A structure type property, and the associated predicate. The
property value is either an identifier, or the index of a field containing an
identifier. The identifier should be bound to the run-time metafunction. The
run-time metafunction should accept a syntax object representing its use, and
diff --git a/racket/collects/racket/private/template.rkt b/racket/collects/racket/private/template.rkt
index 2a21b04456..cd2d5abb3e 100644
--- a/racket/collects/racket/private/template.rkt
+++ b/racket/collects/racket/private/template.rkt
@@ -15,7 +15,6 @@
~@! signal-absent-pvar
(for-syntax prop:metafunction
metafunction
- metafunction-accessor
metafunction?)
(protect
(for-syntax attribute-mapping