Update to latest racket-auxiliary-macro-context
This commit is contained in:
parent
7f84fb9d10
commit
cfe2cc4af7
|
@ -13,7 +13,7 @@
|
||||||
#:macro-definer-name define-event-expander
|
#:macro-definer-name define-event-expander
|
||||||
#:introducer-parameter-name current-event-expander-introducer
|
#:introducer-parameter-name current-event-expander-introducer
|
||||||
#:local-introduce-name syntax-local-event-expander-introduce
|
#: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)
|
#:expander-transform-name event-expander-transform)
|
||||||
|
|
||||||
(provide (for-syntax
|
(provide (for-syntax
|
||||||
|
@ -21,6 +21,6 @@
|
||||||
event-expander?
|
event-expander?
|
||||||
event-expander-proc
|
event-expander-proc
|
||||||
syntax-local-event-expander-introduce
|
syntax-local-event-expander-introduce
|
||||||
event-expander-id?
|
event-expander-form?
|
||||||
event-expander-transform)
|
event-expander-transform)
|
||||||
define-event-expander)
|
define-event-expander)
|
||||||
|
|
|
@ -13,7 +13,7 @@
|
||||||
#:macro-definer-name define-pattern-expander
|
#:macro-definer-name define-pattern-expander
|
||||||
#:introducer-parameter-name current-pattern-expander-introducer
|
#:introducer-parameter-name current-pattern-expander-introducer
|
||||||
#:local-introduce-name syntax-local-pattern-expander-introduce
|
#:local-introduce-name syntax-local-pattern-expander-introduce
|
||||||
#:expander-id-predicate-name pattern-expander-id?
|
#:expander-form-predicate-name pattern-expander-form?
|
||||||
#:expander-transform-name pattern-expander-transform)
|
#:expander-transform-name pattern-expander-transform)
|
||||||
|
|
||||||
(provide (for-syntax
|
(provide (for-syntax
|
||||||
|
@ -21,6 +21,6 @@
|
||||||
pattern-expander?
|
pattern-expander?
|
||||||
pattern-expander-proc
|
pattern-expander-proc
|
||||||
syntax-local-pattern-expander-introduce
|
syntax-local-pattern-expander-introduce
|
||||||
pattern-expander-id?
|
pattern-expander-form?
|
||||||
pattern-expander-transform)
|
pattern-expander-transform)
|
||||||
define-pattern-expander)
|
define-pattern-expander)
|
||||||
|
|
|
@ -122,8 +122,8 @@
|
||||||
(let walk ((stx stx))
|
(let walk ((stx stx))
|
||||||
(define disarmed-stx (syntax-disarm stx orig-insp))
|
(define disarmed-stx (syntax-disarm stx orig-insp))
|
||||||
(syntax-case disarmed-stx ($ quasiquote unquote quote)
|
(syntax-case disarmed-stx ($ quasiquote unquote quote)
|
||||||
[(expander args ...)
|
[expander
|
||||||
(pattern-expander-id? #'expander)
|
(pattern-expander-form? #'expander)
|
||||||
(pattern-expander-transform disarmed-stx
|
(pattern-expander-transform disarmed-stx
|
||||||
(lambda (result) (walk (syntax-rearm result stx))))]
|
(lambda (result) (walk (syntax-rearm result stx))))]
|
||||||
|
|
||||||
|
@ -187,8 +187,8 @@
|
||||||
(let walk ((stx stx))
|
(let walk ((stx stx))
|
||||||
(define disarmed-stx (syntax-disarm stx orig-insp))
|
(define disarmed-stx (syntax-disarm stx orig-insp))
|
||||||
(syntax-case disarmed-stx ($ quasiquote unquote quote)
|
(syntax-case disarmed-stx ($ quasiquote unquote quote)
|
||||||
[(expander args ...)
|
[expander
|
||||||
(pattern-expander-id? #'expander)
|
(pattern-expander-form? #'expander)
|
||||||
(pattern-expander-transform disarmed-stx
|
(pattern-expander-transform disarmed-stx
|
||||||
(lambda (result) (walk (syntax-rearm result stx))))]
|
(lambda (result) (walk (syntax-rearm result stx))))]
|
||||||
|
|
||||||
|
@ -246,8 +246,8 @@
|
||||||
(let walk ((stx stx))
|
(let walk ((stx stx))
|
||||||
(define disarmed-stx (syntax-disarm stx orig-insp))
|
(define disarmed-stx (syntax-disarm stx orig-insp))
|
||||||
(syntax-case disarmed-stx ($ quasiquote unquote quote)
|
(syntax-case disarmed-stx ($ quasiquote unquote quote)
|
||||||
[(expander args ...)
|
[expander
|
||||||
(pattern-expander-id? #'expander)
|
(pattern-expander-form? #'expander)
|
||||||
(pattern-expander-transform disarmed-stx
|
(pattern-expander-transform disarmed-stx
|
||||||
(lambda (result) (walk (syntax-rearm result stx))))]
|
(lambda (result) (walk (syntax-rearm result stx))))]
|
||||||
|
|
||||||
|
|
|
@ -366,7 +366,7 @@
|
||||||
(hash-ref assertion-map handle))
|
(hash-ref assertion-map handle))
|
||||||
(hash-remove! assertion-map handle)
|
(hash-remove! assertion-map handle)
|
||||||
expr ...)))))))]
|
expr ...)))))))]
|
||||||
[(_ (expander args ...) body ...) #:when (event-expander-id? #'expander)
|
[(_ (expander args ...) body ...) #:when (event-expander-form? #'(expander args ...))
|
||||||
(event-expander-transform #'(expander [args ...] body ...) (lambda (r) (syntax-rearm r stx)))]
|
(event-expander-transform #'(expander [args ...] body ...) (lambda (r) (syntax-rearm r stx)))]
|
||||||
[_
|
[_
|
||||||
(raise-syntax-error #f "Invalid event pattern")])))
|
(raise-syntax-error #f "Invalid event pattern")])))
|
||||||
|
|
Loading…
Reference in New Issue