From e54f019ffbf7d5962be3e344c99e5f56b2504c13 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 26 May 2004 16:33:42 +0000
Subject: [PATCH] .

original commit: 14de8b5eb81f19dc7eebf5ef563d6f6311f57447
---
 collects/mzlib/port.ss | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/collects/mzlib/port.ss b/collects/mzlib/port.ss
index e047bd4..7bcacf9 100644
--- a/collects/mzlib/port.ss
+++ b/collects/mzlib/port.ss
@@ -449,6 +449,8 @@
 		       peek-bytes-avail!)
 		   bstr pos progress-evt input-port pos)])
 	  (cond
+	   ;; the first two cases below are shortcuts, and not
+	   ;;  strictly necessary
 	   [(sync/timeout 0 nack) (void)]
 	   [(sync/timeout 0 progress-evt) (if poll?
 					      #f