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

.

Browse Source 
original commit: d35b06befa49a22857b2c2912adab99c0663f8db
This commit is contained in:
Matthew Flatt 2005-03-08 17:00:11 +00:00
parent 3f1f7a7aef
commit 82d2f6b45b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -598,7 +598,7 @@
(else (else
(let* ((c (car closers)) (let* ((c (car closers))
(l (string-length c))) (l (string-length c)))
(insert c) (insert c pos)
(let ((m (backward-match (+ l pos) start-pos))) (let ((m (backward-match (+ l pos) start-pos)))
(cond (cond
((and m ((and m