suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added function contract & purpose

Browse Source 
svn: r7976
This commit is contained in:
Robby Findler 2007-12-12 20:09:50 +00:00
parent 7ac3c22511
commit 69ea58ac92
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/framework/private/color.ss
View File

@ -483,6 +483,8 @@
(end-edit-sequence) (end-edit-sequence)
(set! in-match-parens? #f)))) (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) (define/private (highlight-nested-region orig-start orig-end here)
(let paren-loop ([start orig-start] (let paren-loop ([start orig-start]
[end orig-end] [end orig-end]