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

finish fixing sandboxed test suites

Browse Source 
svn: r8062

original commit: 19a6edc664f8c7320e66b35dfc4bfb9fc2afcf62
This commit is contained in:
Matthew Flatt 2007-12-19 14:46:30 +00:00
parent 2bb52ebd20
commit 0684ea4a78
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/mzlib/async-channel.ss
View File

@ -76,7 +76,7 @@
[(zero? size) [(zero? size)
;; The queue is currently empty: ;; The queue is currently empty:
(sync enqueue tell-empty)] (sync enqueue tell-empty)]
[(or (not limit) ((sub1 size) . < . limit)) [(or (not limit) (size . < . limit))
(sync enqueue (mk-dequeue))] (sync enqueue (mk-dequeue))]
[else [else
(sync (mk-dequeue) tell-full)]) (sync (mk-dequeue) tell-full)])