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

.

Browse Source 
original commit: 11bebfb8e5e61318efd3f6bb39916d763c6d37f2
This commit is contained in:
Robby Findler 2004-04-06 04:13:22 +00:00
parent d7dc631c54
commit 4661f42b1b
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/framework/private/text.ss
View File

@ -999,6 +999,7 @@ WARNING: printf is rebound in the body of the unit to always
;; do-insertion : (listof (cons (union string snip) style-delta)) -> void
;; thread: eventspace main thread
(define/private (do-insertion txts)
(printf "do-insertion ~s\n" txts)
(let ([locked? (is-locked?)])
(begin-edit-sequence)
(lock #f)
@ -1088,6 +1089,7 @@ WARNING: printf is rebound in the body of the unit to always
flush-chan
(lambda (return-waitable)
(let-values ([(viable-bytes remaining-queue) (split-queue converter text-to-insert)])
(printf "viable-bytes.1 ~s\n" viable-bytes)
(queue-insertion viable-bytes return-waitable)
(loop remaining-queue))))
(make-wrapped-waitable
@ -1099,6 +1101,7 @@ WARNING: printf is rebound in the body of the unit to always
[else
(let ([chan (make-channel)])
(let-values ([(viable-bytes remaining-queue) (split-queue converter text-to-insert)])
(printf "viable-bytes.2 ~s\n" viable-bytes)
(queue-insertion viable-bytes (make-channel-put-waitable chan (void)))
(channel-get chan)
(loop remaining-queue)))])))))))))