added function contract & purpose

svn: r7976 original commit: 69ea58ac923e96f5b13f8ffaff1808a59c26de79
2007-12-12 20:09:50 +00:00 · 2007-12-12 20:09:50 +00:00 · 51351be4f8
commit 51351be4f8
parent cedf03f6c9
1 changed files with 2 additions and 0 deletions
--- a/collects/framework/private/color.ss
+++ b/collects/framework/private/color.ss
@ -483,6 +483,8 @@
            (end-edit-sequence)
            (set! in-match-parens? #f))))
      
+      ;; highlight-nested-region : number number number -> void
+      ;; colors nested regions of parentheses.
      (define/private (highlight-nested-region orig-start orig-end here)
        (let paren-loop ([start orig-start]
                         [end orig-end]