From 571266c91921a31ebbb231102e8acb63fd3165dc Mon Sep 17 00:00:00 2001 From: Scott Owens Date: Sun, 9 Nov 2003 23:38:01 +0000 Subject: [PATCH] *** empty log message *** original commit: 0962f9b8511a605fa83e1e6156380a4b21471f14 --- collects/framework/private/color.ss | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/framework/private/color.ss b/collects/framework/private/color.ss index c3304381..83ef6401 100644 --- a/collects/framework/private/color.ss +++ b/collects/framework/private/color.ss @@ -5,6 +5,7 @@ (lib "mred.ss" "mred") (lib "token-tree.ss" "syntax-color") (lib "paren-tree.ss" "syntax-color") + (lib "default-lexer.ss" "syntax-color") "sig.ss" "../macro.ss") @@ -388,7 +389,7 @@ ;; ;; matches is a list of lists of matching paren types. ;; For example, '((|(| |)|) (|[| |]|)) - (init-field get-token prefix (matches null)) + (init-field (get-token default-lexer) (prefix 'default) (matches null)) (rename (super-on-disable-surrogate on-disable-surrogate)) (define/override (on-disable-surrogate text)