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

Use the original syntax to guide tooltip shape

Browse Source 
original commit: 1d86e173a5a68147d8316332addcd0619fbdb65e
This commit is contained in:
Asumu Takikawa 2014-11-18 17:54:19 -05:00
parent 724d5e142d
commit 88e2146757
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/types/type-table.rkt
View File

@ -139,14 +139,16 @@
;; make-tooltip-vector : Syntax Thunk Int Int -> (Listof Vector)
;; Compute the tooltip info to put in syntax properties
(define (make-tooltip-vector stx type-thunk position span)
;; Try to use the original syntax to guide the shape of the tooltip
(define located (locate-stx stx))
(cond ;; Put the tooltip only on the parens for compound expressions
;; but put them on the whole expression for literals. This avoids
;; overlapping tooltips.
[(or (not (pair? (syntax-e stx)))
[(or (not (pair? (syntax-e located)))
;; special-case quote because there's no worry of overlap
;; in a (quote ...) and because literals expand out to a
;; use of quote.
(let ([fst (car (syntax-e stx))])
(let ([fst (car (syntax-e located))])
(and (identifier? fst)
(free-identifier=? fst #'quote))))
(list (vector stx