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

Correct Help Desk Search so it handles keywords and hash-colon-keyword lexemes.

Browse Source 
Closes PR 13470.
This commit is contained in:
Danny Yoo 2013-02-11 13:52:04 -07:00
parent 49ab87eadc
commit 61ddb91815
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
collects/drracket/private/unit.rkt
View File

@ -267,13 +267,16 @@ module browser threading seems wrong.
;; find-searchable-tokens : number number -> (or/c #f (list symbol number number)) ;; find-searchable-tokens : number number -> (or/c #f (list symbol number number))
(define (find-searchable-tokens start end) (define (find-searchable-tokens start end)
(define tokens (get-tokens start end)) (define tokens (get-tokens start end))
(define raw-tokens (map (λ (x) (list-ref x 0)) tokens)) (for/or ([tok tokens])
(cond (define type (list-ref tok 0))
[(equal? raw-tokens '(symbol)) (cond [(or (eq? type 'symbol)
(car tokens)] (eq? type 'hash-colon-keyword)
[(equal? raw-tokens '(constant symbol)) ;; The token may have been categorized as a keyword due to
(cadr tokens)] ;; its presence in the tabification preferences:
[else #f])) (eq? type 'keyword))
tok]
[else
#f])))
(define searchable-token (define searchable-token
(or (and before before+ (or (and before before+