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

.

Browse Source 
original commit: 7db54198dfcc9d864f223b98412ef8b65e63c126
This commit is contained in:
Matthew Flatt 2004-05-26 16:25:16 +00:00
parent 492e73514c
commit 50fc864690
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/mred/mred.ss
View File

@ -7610,7 +7610,7 @@
(let ([v (read-chars s)])
(semaphore-post lock-semaphore)
v)
(convert-evt
(wrap-evt
(semaphore-peek-evt lock-semaphore)
(lambda (x) 0)))))
(lambda (s skip general-peek)