.

original commit: 14de8b5eb81f19dc7eebf5ef563d6f6311f57447
2004-05-26 16:33:42 +00:00 · 2004-05-26 16:33:42 +00:00 · e54f019ffb
commit e54f019ffb
parent 3636a945ce
1 changed files with 2 additions and 0 deletions
--- 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