added function contract & purpose

svn: r7976
2007-12-12 20:09:50 +00:00 · 2007-12-12 20:09:50 +00:00 · 69ea58ac92
commit 69ea58ac92
parent 7ac3c22511
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]