From a91597946c698724c56d8d263bb29169ce5e0c6c Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 6 Jul 2013 12:43:29 -0500 Subject: [PATCH] unbreak drracket original commit: 5dbc59e8e8f4194fd72a8805d41ef1d48424bf36 --- pkgs/gui-pkgs/gui-lib/framework/private/racket.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/pkgs/gui-pkgs/gui-lib/framework/private/racket.rkt b/pkgs/gui-pkgs/gui-lib/framework/private/racket.rkt index 61648921..39228b5b 100644 --- a/pkgs/gui-pkgs/gui-lib/framework/private/racket.rkt +++ b/pkgs/gui-pkgs/gui-lib/framework/private/racket.rkt @@ -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"]