From 0684ea4a7887bb7ead02d13dfb3f7ccf54083b80 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 19 Dec 2007 14:46:30 +0000
Subject: [PATCH] finish fixing sandboxed test suites

svn: r8062

original commit: 19a6edc664f8c7320e66b35dfc4bfb9fc2afcf62
---
 collects/mzlib/async-channel.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mzlib/async-channel.ss b/collects/mzlib/async-channel.ss
index 30f8170..6ae4bff 100644
--- a/collects/mzlib/async-channel.ss
+++ b/collects/mzlib/async-channel.ss
@@ -76,7 +76,7 @@
 		    [(zero? size)
 		     ;; The queue is currently empty:
 		     (sync enqueue tell-empty)]
-		    [(or (not limit) ((sub1 size) . < . limit))
+		    [(or (not limit) (size . < . limit))
 		     (sync enqueue (mk-dequeue))]
 		    [else
 		     (sync (mk-dequeue) tell-full)])