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

.

Browse Source 
original commit: bda238ab487257c614d73a0cd9b1d6b473af662d
This commit is contained in:
Matthew Flatt 2004-05-18 16:32:11 +00:00
parent 14e2221c2e
commit e1631d9b73
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/scheme.ss
View File

@ -574,7 +574,7 @@
(let loop ([para first-para])
(when (<= para end-para)
(tabify (paragraph-start-position para))
(dynamic-enable-break (lambda () (break-enabled)))
(parameterize-break #t (void))
(loop (add1 para))))
(when (and (>= (position-paragraph start-pos) end-para)
(<= (skip-whitespace (get-start-position) 'backward #f)