suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Move phase-of-enclosing-module to a private syntax/parse module.

Browse Source
This commit is contained in:
Vincent St-Amour 2015-07-31 20:24:19 -05:00
parent d836a427cc
commit 5ee37920f5
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
racket/collects/syntax/parse/private/runtime.rkt
View File

@ -1,6 +1,5 @@
#lang racket/base #lang racket/base
(require racket/stxparam (require racket/stxparam
unstable/syntax
syntax/parse/private/residual ;; keep abs. path syntax/parse/private/residual ;; keep abs. path
(for-syntax racket/base (for-syntax racket/base
racket/list racket/list
@ -141,6 +140,10 @@ residual.rkt.
(define-syntax name (make-syntax-mapping 'depth (quote-syntax stmp))) (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 ;; (check-literal id phase-level-expr ctx) -> void
(define-syntax (check-literal stx) (define-syntax (check-literal stx)
(syntax-case stx () (syntax-case stx ()