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

syntax/parse: fix check-literals code (references to disappearing names)

Browse Source
This commit is contained in:
Ryan Culpepper 2011-09-30 15:03:49 -06:00
parent 951de8cc51
commit 38d984367e
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/syntax/parse/private/runtime.rkt
View File

@ -5,6 +5,7 @@
(for-syntax racket/base (for-syntax racket/base
racket/list racket/list
syntax/kerncase syntax/kerncase
syntax/strip-context
racket/private/sc racket/private/sc
racket/syntax racket/syntax
"rep-attrs.rkt" "rep-attrs.rkt"
@ -161,11 +162,14 @@ residual.rkt.
;; so we can avoid run-time call to identifier-binding if ;; so we can avoid run-time call to identifier-binding if
;; (+ (phase-of-enclosing-module) ok-phase/ct-rel) = used-phase ;; (+ (phase-of-enclosing-module) ok-phase/ct-rel) = used-phase
(with-syntax ([ok-phases/ct-rel ok-phases/ct-rel]) (with-syntax ([ok-phases/ct-rel ok-phases/ct-rel])
#'(check-literal* (quote-syntax id) #`(check-literal* (quote-syntax id)
used-phase-expr used-phase-expr
(phase-of-enclosing-module) (phase-of-enclosing-module)
'ok-phases/ct-rel 'ok-phases/ct-rel
(quote-syntax ctx))))])) ;; If context is not stripped, racket complains about
;; being unable to restore bindings for compiled code;
;; and all we want is the srcloc, etc.
(quote-syntax #,(strip-context #'ctx)))))]))
;; ==== ;; ====