diff --git a/racket/collects/syntax/parse/private/runtime.rkt b/racket/collects/syntax/parse/private/runtime.rkt index e463388510..45f647e44d 100644 --- a/racket/collects/syntax/parse/private/runtime.rkt +++ b/racket/collects/syntax/parse/private/runtime.rkt @@ -1,6 +1,5 @@ #lang racket/base (require racket/stxparam - unstable/syntax syntax/parse/private/residual ;; keep abs. path (for-syntax racket/base racket/list @@ -141,6 +140,10 @@ residual.rkt. (define-syntax name (make-syntax-mapping 'depth (quote-syntax stmp))) ...)))])) +(define-syntax-rule (phase-of-enclosing-module) + (variable-reference->module-base-phase + (#%variable-reference))) + ;; (check-literal id phase-level-expr ctx) -> void (define-syntax (check-literal stx) (syntax-case stx ()