2021-06-04 13:56:03 +00:00
|
|
|
;;; SPDX-License-Identifier: LGPL-3.0-or-later
|
2021-06-04 14:20:14 +00:00
|
|
|
;;; SPDX-FileCopyrightText: Copyright © 2018-2021 Tony Garnock-Jones <tonyg@leastfixedpoint.com>
|
2021-06-01 15:19:24 +00:00
|
|
|
|
2018-04-08 10:44:32 +00:00
|
|
|
#lang racket/base
|
|
|
|
|
|
|
|
(require auxiliary-macro-context)
|
|
|
|
|
|
|
|
(define-auxiliary-macro-context
|
|
|
|
#:context-name event-expander
|
|
|
|
#:prop-name prop:event-expander
|
|
|
|
#:prop-predicate-name event-expander?
|
|
|
|
#:prop-accessor-name event-expander-proc
|
|
|
|
#:macro-definer-name define-event-expander
|
|
|
|
#:introducer-parameter-name current-event-expander-introducer
|
|
|
|
#:local-introduce-name syntax-local-event-expander-introduce
|
|
|
|
#:expander-id-predicate-name event-expander-id?
|
|
|
|
#:expander-transform-name event-expander-transform)
|
|
|
|
|
|
|
|
(provide (for-syntax
|
|
|
|
prop:event-expander
|
|
|
|
event-expander?
|
|
|
|
event-expander-proc
|
|
|
|
syntax-local-event-expander-introduce
|
|
|
|
event-expander-id?
|
|
|
|
event-expander-transform)
|
|
|
|
define-event-expander)
|