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 'framework:tabify
(lambda (k v) (set! tabify-pref v))) (lambda (k v) (set! tabify-pref v)))
(define/private (racket-lexer-wrapper in offset mode) (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)) (module-lexer/waived in offset mode))
(cond (cond
[(and (eq? type 'symbol) [(and (eq? type 'symbol)
(get-keyword-type lexeme tabify-pref)) (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 [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) (define/override (put-file text sup directory default-name)
(parameterize ([finder:default-extension "rkt"] (parameterize ([finder:default-extension "rkt"]