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

fixed PR 9107

Browse Source 
svn: r8013
This commit is contained in:
Robby Findler 2007-12-14 22:58:31 +00:00
parent 58ffe9133e
commit 553d628491
1 changed files with 33 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/drscheme/syncheck.ss
View File

@ -2368,11 +2368,14 @@ If the namespace does not, they are colored the unbound color.
;; document-variable : stx identifier-binding -> void ;; document-variable : stx identifier-binding -> void
(define (document-variable stx get-binding) (define (document-variable stx get-binding)
(when (syntax-original? stx)
(let ([defs-frame (currently-processing-drscheme-frame)]) (let ([defs-frame (currently-processing-drscheme-frame)])
(when defs-frame (when defs-frame
(let* ([defs-text (send defs-frame get-definitions-text)] (let* ([defs-text (send defs-frame get-definitions-text)]
[binding-info (get-binding stx)]) [binding-info (get-binding stx)])
(when (pair? binding-info) (when (and (pair? binding-info)
(syntax-position stx)
(syntax-span stx))
(let* ([start (- (syntax-position stx) 1)] (let* ([start (- (syntax-position stx) 1)]
[fin (+ start (syntax-span stx))] [fin (+ start (syntax-span stx))]
[source-mod (list-ref binding-info 0)] [source-mod (list-ref binding-info 0)]
@ -2397,7 +2400,7 @@ If the namespace does not, they are colored the unbound color.
(path->string path) (path->string path)
(if tag (if tag
(string-append "#" (uri-encode tag)) (string-append "#" (uri-encode tag))
""))))))))))))))))) ""))))))))))))))))))