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

add mouse over status for free variables (only relevant for top-level languages)

Browse Source
This commit is contained in:
Robby Findler 2011-11-12 22:13:31 -06:00
parent 4a54411f8c
commit 0429471cf8
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/drracket/private/syncheck/traversals.rkt
View File

@ -668,9 +668,12 @@
(let/ec k (let/ec k
(namespace-variable-value (syntax-e var) #t (λ () (k #f))) (namespace-variable-value (syntax-e var) #t (λ () (k #f)))
#t)))]) #t)))])
(if top-bound? (cond
(color var lexically-bound-variable-style-name 'default-mode) [top-bound?
(color var free-variable-style-name 'default-mode)) (color var lexically-bound-variable-style-name 'default-mode)]
[else
(add-mouse-over var (format "~s is a free variable" (syntax-e var)))
(color var free-variable-style-name 'default-mode)])
(connect-identifier var binders #f #f 0 user-namespace user-directory #t))) (connect-identifier var binders #f #f 0 user-namespace user-directory #t)))
;; color-variable : syntax phase-level identifier-mapping -> void ;; color-variable : syntax phase-level identifier-mapping -> void