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

.

Browse Source 
original commit: 034d13c0d0dcecdf011573704b13413a43d8984b
This commit is contained in:
Matthew Flatt 2003-03-06 01:51:35 +00:00
parent d9b58060c6
commit 3537523a03
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/mred/mred.ss
View File

@ -5899,7 +5899,7 @@
(lambda ()
(current-output-port user-output-port)
(current-error-port user-output-port)
(current-input-port (make-custom-input-port #f (lambda (s) eof) #f void)))
(current-input-port (make-custom-input-port (lambda (s) eof) #f void)))
#t)))
(send repl-display-canvas set-editor repl-buffer)
@ -7293,7 +7293,7 @@
[snip (send text find-snip start 'after-or-none)]
[str #f]
[pos 0]
[semaphore (make-semaphore 1)]
[lock-semaphore (make-semaphore 1)]
[update-str-to-snip
(lambda ()
(cond
@ -7341,10 +7341,9 @@
;; We create a slow port for now; in the future, try
;; grabbing more characters:
[port (make-custom-input-port
semaphore
(lambda (s)
(parameterize ([break-enabled #f])
(if (semaphore-try-wait? semaphore)
(if (semaphore-try-wait? lock-semaphore)
(dynamic-wind
void
(lambda ()
@ -7354,8 +7353,8 @@
(string-set! s 0 c)
1)
c)))
(lambda () (semaphore-post semaphore)))
0)))
(lambda () (semaphore-post lock-semaphore)))
(make-semaphore-repost-waitable lock-semaphore))))
#f ; no peek
close)])
(update-str-to-snip)