syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

update uses of auxiliary-macro-context

This commit is contained in:
Sam Caldwell 2023-02-08 16:52:01 -05:00
parent 3d9b1c383c
commit 899fe287b4
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
racket/syndicate/actor.rkt
View File

@ -803,7 +803,7 @@
#: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-form-predicate-name event-expander-form?
#:expander-transform-name event-expander-transform)
(provide (for-syntax
@ -811,7 +811,7 @@
event-expander?
event-expander-proc
syntax-local-event-expander-introduce
event-expander-id?
event-expander-form?
event-expander-transform)
define-event-expander)
@ -949,8 +949,8 @@
(define event-stx (syntax-disarm armed-event-stx orig-insp))
(syntax-parse event-stx
#:literals [core:message asserted retracted rising-edge know forget realize]
[(expander args ...)
#:when (event-expander-id? #'expander)
[expander
#:when (event-expander-form? #'expander)
(event-expander-transform
event-stx
(lambda (result)

8
racket/syndicate/pattern.rkt
View File

@ -28,7 +28,7 @@
#:macro-definer-name define-assertion-expander
#:introducer-parameter-name current-assertion-expander-introducer
#:local-introduce-name syntax-local-assertion-expander-introduce
#:expander-id-predicate-name assertion-expander-id?
#:expander-form-predicate-name assertion-expander-form?
#:expander-transform-name assertion-expander-transform)
(provide (for-syntax
@ -36,7 +36,7 @@
assertion-expander?
assertion-expander-proc
syntax-local-assertion-expander-introduce
assertion-expander-id?
assertion-expander-form?
assertion-expander-transform)
define-assertion-expander)
@ -153,8 +153,8 @@
bs
ins))]
[(expander args ...)
(assertion-expander-id? #'expander)
[expander
(assertion-expander-form? #'expander)
(assertion-expander-transform pat-stx (lambda (r) (walk (syntax-rearm r pat-stx))))]
[(ctor p ...)