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

require only original-enough? syntax for require annotations

Browse Source
This commit is contained in:
Robby Findler 2014-10-04 16:57:18 -05:00
parent a50eeb458f
commit 0f058d8cf2
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pkgs/drracket-pkgs/drracket-tool-lib/drracket/private/syncheck/traversals.rkt
View File

@ -277,7 +277,6 @@
(syntax-position stx) (syntax-position stx)
(syntax-span stx))) (syntax-span stx)))
(hash-set! module-lang-requires key #t)) (hash-set! module-lang-requires key #t))
(syntax-case* stx-obj (#%plain-lambda case-lambda if begin begin0 let-values letrec-values (syntax-case* stx-obj (#%plain-lambda case-lambda if begin begin0 let-values letrec-values
set! quote quote-syntax with-continuation-mark set! quote quote-syntax with-continuation-mark
#%plain-app #%top #%plain-module-begin #%plain-app #%top #%plain-module-begin
@ -470,7 +469,7 @@
(λ () (make-hash)))) (λ () (make-hash))))
(define raw-module-path (phaseless-spec->raw-module-path stx)) (define raw-module-path (phaseless-spec->raw-module-path stx))
(annotate-require-open user-namespace user-directory raw-module-path) (annotate-require-open user-namespace user-directory raw-module-path)
(when (syntax-original? raw-module-path) (when (original-enough? raw-module-path)
(define key (syntax->datum raw-module-path)) (define key (syntax->datum raw-module-path))
(hash-set! require-ht (hash-set! require-ht
key key
@ -1008,7 +1007,7 @@
;; relies on current-module-name-resolver, which in turn depends on ;; relies on current-module-name-resolver, which in turn depends on
;; current-directory and current-namespace ;; current-directory and current-namespace
(define (annotate-require-open user-namespace user-directory require-spec) (define (annotate-require-open user-namespace user-directory require-spec)
(when (syntax-original? require-spec) (when (original-enough? require-spec)
(define source (find-source-editor require-spec)) (define source (find-source-editor require-spec))
(when (and source (when (and source
(syntax-position require-spec) (syntax-position require-spec)