From d5e3d7a4fc573bf9348a743ddd6971f36ef7e444 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Thu, 8 May 2008 06:36:42 +0000
Subject: [PATCH] updated to v4

svn: r9730
---
 collects/framework/private/color.ss | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/collects/framework/private/color.ss b/collects/framework/private/color.ss
index 3da24b66ae..d5fc350444 100644
--- a/collects/framework/private/color.ss
+++ b/collects/framework/private/color.ss
@@ -9,10 +9,9 @@ added get-regions
 (require mzlib/class
          mzlib/thread
          mred
-         mzlib/etc
-         (lib "token-tree.ss" "syntax-color")
-         (lib "paren-tree.ss" "syntax-color")
-         (lib "default-lexer.ss" "syntax-color")
+         syntax-color/token-tree
+         syntax-color/paren-tree
+         syntax-color/default-lexer
          string-constants
          "../preferences.ss"
          "sig.ss")
@@ -432,7 +431,7 @@ added get-regions
     
     ;; See docs
     (define/public stop-colorer
-      (opt-lambda ((clear-the-colors #t))
+      (lambda ((clear-the-colors #t))
         (set! stopped? #t)
         (when (and clear-the-colors (not frozen?))
           (clear-colors))
@@ -466,7 +465,7 @@ added get-regions
     
     ;; See docs
     (define/public thaw-colorer
-      (opt-lambda ((recolor? #t)
+      (lambda ((recolor? #t)
                    (retokenize? #f))
         (when frozen?
           (set! frozen? #f)
@@ -561,7 +560,7 @@ added get-regions
     ;; highlight parens, and the parens will be highlighted as soon as
     ;; possible.
     (define/private match-parens
-      (opt-lambda ([just-clear? #f])
+      (lambda ([just-clear? #f])
         ;;(printf "(match-parens ~a)~n" just-clear?)
         (when (and (not in-match-parens?)
                    ;; Trying to match open parens while the