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

.

Browse Source 
original commit: 4c206ee2d3fceb3b5f4fffe12f9d3f74d0c80d0f
This commit is contained in:
Robby Findler 2004-11-27 21:31:16 +00:00
parent 41b385f0e1
commit 9807b5fb40
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/drscheme/private/syntax-browser.ss
View File

@ -495,8 +495,8 @@ needed to really make this work:
(define (make-text-port text)
(make-output-port #f
always-evt
(lambda (s start end flush?)
(send text insert (substring s start end)
(lambda (s start end flush? breaks?)
(send text insert (bytes->string/utf-8 (subbytes s start end))
(send text last-position)
(send text last-position))
(- end start))