From 2ecf76485e28a89d0fc04a64f42d44752a9e5d57 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 18 May 2004 18:20:23 +0000 Subject: [PATCH] fixed comment original commit: aae5a1ac03d117a74a4dfdf26016b7c1a7971682 --- collects/framework/private/color.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/framework/private/color.ss b/collects/framework/private/color.ss index e9fe8941..4d1bbb68 100644 --- a/collects/framework/private/color.ss +++ b/collects/framework/private/color.ss @@ -165,9 +165,9 @@ (set! invalid-tokens-start (+ invalid-tokens-start length))) (sync-invalid))) - ;; re-tokenize should be called with breaks enabled and exit with - ;; breaks disabled re-tokenize should be called when lock is not - ;; held. When it exits, the lock will be held. + ;; re-tokenize should be called with breaks disabled, and + ;; should be called when lock is not held. When it exits, + ;; the lock will be held. (define/private (re-tokenize in in-start-pos) (let-values ([(lexeme type data new-token-start new-token-end) ;; Allow breaks while getting tokens