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