From 5ee37920f5faeacf31abbc5da8606a8d238a9f3c Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Fri, 31 Jul 2015 20:24:19 -0500 Subject: [PATCH] Move phase-of-enclosing-module to a private syntax/parse module. --- racket/collects/syntax/parse/private/runtime.rkt | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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 ()