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

unbreak drracket

Browse Source 
original commit: 5dbc59e8e8f4194fd72a8805d41ef1d48424bf36
This commit is contained in:
Robby Findler 2013-07-06 12:43:29 -05:00
parent 95f271deff
commit a91597946c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkgs/gui-pkgs/gui-lib/framework/private/racket.rkt
View File

@ -1311,14 +1311,14 @@
'framework:tabify
(lambda (k v) (set! tabify-pref v)))
(define/private (racket-lexer-wrapper in offset mode)
(define-values (lexeme type paren start end backup-delta mode)
(define-values (lexeme type paren start end backup-delta new-mode)
(module-lexer/waived in offset mode))
(cond
[(and (eq? type 'symbol)
(get-keyword-type lexeme tabify-pref))
(values lexeme 'keyword paren start end backup-delta mode)]
(values lexeme 'keyword paren start end backup-delta new-mode)]
[else
(values lexeme type paren start end backup-delta mode)]))
(values lexeme type paren start end backup-delta new-mode)]))
(define/override (put-file text sup directory default-name)
(parameterize ([finder:default-extension "rkt"]