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

.

Browse Source 
original commit: 0fd01393ee41c65cff6c96a97ea5248b04236e0a
This commit is contained in:
Matthew Flatt 2004-05-11 13:13:10 +00:00
parent 206f0a2c4f
commit c08f5fadb9
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

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